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Introduction 



In Game Writer's Pack 1, the computer was used to organize 
the games, and served as the board on which the games 
were played, but it took no really active part. Most of games 
covered here are those where the 99 acts as a player. 
Sometimes its play is automatic, but in most games, the 99 
has to think! Of course, computers cannot think for 
themselves - at least not yet - so it's up to you, the 
programmer, to teach it how. This means that you have to 
think hard about how a game works, and how a human 
player takes decisions during a game. It takes time, but it's 
worth it in the end. You will find that you learn a 
tremendous amount about computing techniques while you 
are working out your own games. 

The programs in this pack are mainly examples of the sorts 
of games you can write using the techniques covered in the 
book. Please feel free to extend or alter these programs to 
make them into games of your own. As long as you do not 
try to record over the original programs on the cassette, 
then, whatever you try, the programs will not be lost or 
damaged. The program LISTs are given in the Appendix for 
your reference. 

The book assumes that you have read the two Starter 
Packs, and Games Writer's Pack 1, and that you have a 
reasonable grasp of the computing techniques covered in 
those. It also assumes that you will work through chapter by 
chapter and learn to use each new idea before moving on. 

You don't need any special equipment for games 
programming, just a T.V., a cassette recorder, your trusty 99, 
lots of paper and plenty of ideas. A printer is of tremendous 
help in sorting out long programs, and the TI EXTENDED 
BASIC cartridge can make life easier, but neither are 
essential. 
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1 

Word games 



Word games rely on the comparison of strings or parts of 
strings. HANGMAN, included in Starter Pack 2, is a useful 
demonstration of the use of string-slicing techniques in 
games. 

The game follows the normal rules. Correctly guessed 
letters are written on the dashes to build up the mystery 
word. Bad guesses are recorded, and the hanging man is 
drawn in ten stages. 

The essential routines of the game are very simple. The 
major complications lie in the screen presentation. Using 
standard TI BASIC, it is not possible to PRINT at set points 
on the screen, and so the HCHAR sub-program has to be 
used. (In TI EXTENDED BASIC you have a DISPLAY AT 
command which makes screen presentations that much 
easier.) 

The heart of the program is the comparison of the guessed 
letter with each of the letters of the word in turn. In 
EXTENDED BASIC it would look something like this (L$ is 
the Letter, W$ is the Word): 

FOR T = 1 TO LEN(W$) 

IF L$ = SEG$(W$,T,1) THEN ELSE 



NEXT T 

In TI BASIC it's not that easy. If you allow a letter to be 
INPUT, then your screen will scroll up and you will lose your 
display. The Letter must be collected by a CALL KEY line. 
You now have a code rather than a letter, so the codes of the 
letters of the Word need to be checked. That check line now 
looks like this: 

IF K = ASC(SEG$(W$,T,1)) THEN 



K is the code of the letter collected by CALL KEY(3,K,S). The 
alternative is to transfer the letter code to a string: 
L$ = CHR$(K) and carry on as before. 

Either way you do it, the result is the same. If the word 
was "HANGMAN'' and the letter was "A" then this is what 
happens: 

HANGMAN 

GOTO "found" routine. 

If you look at the HANGMAN LIST in the Appendix , you 
will find this part of the program around lines 600 onwards. 

The found routine is at 1000. The first thing to do is to print 
the found letter in the right place on the screen. 

CALL HCHAR(15,T*2+8,K) 

This prints the letter, CHR$(K), on the 15th row, starting 
8 columns in, and spaced out with a single space between 
the letters. From the example above, the first "A" would 
appear at 15,12 (=2*2+8) and the second "A" at 15,20. 

You could at this stage simply mark up a correct guess, 
(CG=CG+1) and go on, checking to see if you have as many 
guesses as there are letters in the word (IF CG = LEN(W$) 
THEN...). Unfortunately, some players cheat. There would 
be nothing here to stop someone using the same correct 
letter all the time, and building up his score that way. This is 
why lines 1030 to 1070 are there. They remove the guessed 
letter from the word and replace it with a space. 

1030 P=P0S(W$,CHR$(K),1) (where's the letter 

again?) 

1040 L$= SEG$(W$,1 ,P-1 ) (left-hand side up to 

the letter) 

1050 R$= SEG$(W$,P+1 ,L-P) (right-hand side-L 

is Len(W$)) 

1060 W$=L$&" " (add a space) 
1070 W$=W$&R$ 
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Back to the example - on the first "A'' this happens: 
P=2 

L$ = "H" (SEG$(W$,1,1)) 

R$ = "NGMAr (SEG$(W$,3,4)) 

W$ is redefined to read "H NGMAN'' 

The same technique can be used, by the way, to knock a 
single space invader out of a string of them. 

You can now add to your Correct Guesses score, and 
check for enough Correct Guesses. The actual program uses 
a different check routine. There, a Check String is created 
(C$) which is the same length as the Word, but filled entirely 
with spaces. When the letters of the word have all been 
replaced with spaces, then this is picked up by comparison 
with C$. (Lines 1090 to 1120). 



Bad Guesses 

You need some sort of flag in your "found" routine to show 
that the computer has been there. In the program it is Z. If at 
the end of the loop, Z is still zero, then clearly no letter has 
been found, and it was a Bad Guess. The computer now goes 
off to the drawing routine. M is the counter for the number 
of Misses. Look at lines 2000 onwards. 

2000 M=M+1 

2010 ON M GOSUB 

Each sub-routine draws another part of the picture. 

The Bad Guesses must also be recorded on the screen, and 
their position is held in GR (Guess Row) and GC. 

2040 CALL HCHAR(GR,GC,K) 

prints up the letter. GR and GC are then adjusted ready for 
the next Bad Guess. 

Figure 1 shows the flowchart for the basic HANGMAN 
game. 
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INPUT W$ 



I GET LETTER 




( WIN ) 



Figure 1 

Here the word is entered by a second player at the start of 
the game. 



Word Banks for Hangman 

Two separate word banks are included in the HANGMAN 
game in Pack 2 - one of BASIC words, the other of animal 
names. You can very readily add extra banks, or extend 
these. To add extra banks simply type the words in as DATA 
lines starting at 8000, 9000, 10000 (or any other well-spaced 
numbers). Next alter the selection routine that starts at 180. 
You want to be able to fix the RESTORE position so that the 
99 begins to read at the start of the chosen set of DATA lines. 
It is probably easiest to ask the player for a number reply. 

"For BASIC Hangman enter 1 
For Animal Hangman enter 2 
For Geography Hangman enter 3 



8 



You follow with something like this: 

190 INPUT A 

200 ON A GOTO 205,215,225,.-- 

205 RESTORE 5000 

210 GOTO 250 

215 RESTORE 6000 

220 GOTO 250 

225 RESTORE 8000 

The routine from line 250 READS the word bank into the 
array Q$(42). If you want more than 42 words you will have 
to change the dimension of Q$ and make sure that all your 
banks have the same number of words. 

Words are chosen from the Q$ array by the lines from 460 
to 466. 

460 N= INT(RND*42)+1 
462 IF Q$(N)='"' THEN 460 

465 W$= Q$(N) 

466 Q$(N) = 

This picks a word at random, checks that it hasn't been used, 
transfers it to W$ for the game, and then marks off the word 
in the array. 

Before you can teach the 99 to play Hangman, you have to 
work out how you play, and break your game technique 
down into a series of separate steps and decisions. Most 
people start by guessing the commonest letters, vowels first. 
Then, when a few letters have been found, they will look at 
the shape of the word and try to guess the word. If they 
think they know what the word is, then they will normally 
try the first blank letter. Let's look at an example. Here's the 
line of blanks: 



Vowels first. 

"E" no good 

"A" good one _ A 

'T' good one _A_I_ 



Think, think. No, don't recognize it yet. There are enough 
vowels. Let's try some consonants. "N" is the commonest. 

"N" no good 

"S" good one _ASI_ 

This looks like BASIC. Try "B" to check. 

"B" spot on BASI_ 
"C" finishes the word BASIC 

We can now write out a game plan as a flowchart. (Figure 2) 

( START ) 



Yes 




Try the first 
blank Letter 




fill in the 
remaining 
blanks 



Rgure2 C ) 



If you can flowchart it, you can program it. (Keep saying that 
to yourself when things are not going smoothly. It's a very 
encouraging thought.) 

Take it a step at a time. How do you "try a vowel"? You 
will need an array of vowels - V$(l) ="E" ; V$(2) = "A" ; 
V$(3) = "I" ; V$(4) = "O" ; V$(5) = "U" ; V$(6) = "Y". You 
need that "Y" there in case of words like "WHY". 

You will also need a couple of variables - VN to keep track 
of which Vowel Number you are trying, and VF to count 
how many Vowels you have Found. 





r 


VN = 1 
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Try V(VN) 



VN = VN + 1 

No 



VF = VF + 1 




Yes 



Figure 3 

How many vowels are "enough"? As a general rule there's 
one vowel to every 2 or 3 consonants. This line compares the 
number of Vowels Found with the length of the word: 

IF VF = INT (LEN(W$)/3)+1 

With a five letter word, INT(LEN(W$)/3)+l comes to 2. 
Think of a few five letter words and count how many vowels 
in each. 
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"Recognize shape"? No problem - as long as the player is 
only allowed to use words in the 99's word bank. First run 
through the word bank - Q$(. .) and find one the right length 
(WL is the Word Length) 

IF LEN Q$(N) = WL THEN 

Transfer it to a simple string store, as this makes slicing 
much easier. 

C$ = Q$(N) 

and mark this word off in your array, so that you don't keep 
trying it: 

Q$(N) = 

Now go through the two words, W$ and C$, and compare 
them letter by letter, ignoring the blanks: 

1500 FOR T=1 TO WL 

1510 IF SE6$(W$,T,1)=" "THEN 1530 

(ignore blanks) 

1520 IF SE6$(W$,T,1)<>SEG$(C$,T,1) THEN 

(back up for a different word) 

1530 NEXT T 

Suppose the word that you are thinking of is "INPUT". The 

computer has guessed and found I U_. It checks the word 

bank and comes up with "BREAK" - the first five letter word 
it meets. On the first run through the letter checking loop it 
discovers that SEG$(W$,T,1) - "I" is not the same as 
SEG$(C$,T,1) - "B". It goes off for another word. 

Eventually it finds "INPUT", and checks those letters. The 
only letters that it has guessed "I" and "U" are in the right 
places. It completes the loop and is ready for the next stage. 
Find the first blank letter, and try that. 

P=POS(W$," ",1) 

Finds the position of the blank. 

SEG$(C$,P,1) 
is the letter at that point in the C$ word. 
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This kind of routine works perfectly well where you have a 
limited number of words that the player can use. You could 
have a much larger word bank if you wanted. The 99 has 
memory space for several hundred words. With a large 
bank, the 99 could soon use up its guesses working through 
all of the words of the right length. This is where you need to 
write in a consonant guessing routine, so that the computer 
tries to guess more single letters before it begins to compare 
with the words in its memory. 

The consonant routine works the same as the vowel 
routine, only now, instead of using the 6 vowels, you will 
use the 6 (or more) commonest consonants. In normal 
English these are T,N,S,H,R,D. Check your own word bank 
though, to see which consonants are used most there. 

You now have most of the routines you need to teach the 
99 how to play Hangman. For a look at how to organize a 
computerized guessing game, run the LOGICOL program, 
and check through its LIST (in the Appendix). 



How many words? 

How many words of 3 letters or more can you make out of 
the word "TEXAS" - using each letter once only in each 
word? The 99 can make 300 - except that most of them are 
not proper words. WeTl come back to that in a minute, but 
first let's put a word-maker game together. The game is fun 
to play, easy to write, and gives good practice in handling 
arrays. 



Here's the flowchart. 



C SCORE = 0) 



Set up word 
Bank Q8(...) 




STOP ) 



Mark off in array 

Add to Score 
Print "OK" message 



Rgure 4 

The program starts by READing its word bank from a 
DATA list into an array. This is done exactly the same as in 
Hangman. If you are not too bothered about the screen 
display, then the player's word can be entered by a normal 
INPUT line, otherwise use the Input Anywhere routine from 
Pack 2. 

Comparing whole words in easy. Simply work through 
the word bank, checking each word in the array with the 
player's word. 

FOR N =1 TO 100 (or however many) 

IF W$ = Q$(N) THEN (off to O.K. routine) 

NEXT N 

(leads to "no good" routine.) 
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The O.K. routine removes the word from the word bank, so 
that it cannot be re-used: 



Q$(N) = " " 

It adds to the score (longer words count more): 

XS = LEN(W$)- 2 (extra Score) 
SCORE =SCORE + XS 

- 3-letter words get 1 point, 4-letter words get 2, etc. 
And it PRINTS an appropriate message: 

PRINT "THAT'S A GOOD WORD." 

Now for the Word Bank. 

You want to make sure that you include in your word bank 
every possible word. What better way to do this than to get 
the 99 to work out every different combination of letters. You 
can then quickly check through the hst to see which are real 
words. 

This routine produces every 3-letter combination from the 
word "TEXAS". 

10 W$="TEXAS" 

This splits the 
word into 

20 FOR N=1 TO 5 I separate letters - 

30 L$(N)= SEG$(W$,N,1) f it makes the rest 
40 NEXT N of the program 

J simpler 

50 FOR A =1 TO 5 
60 FOR B = 1 TO 5 
70 FOR C = 1 TO 5 

80 IF (A=B) -I- (A=C) + (B=C) THEN 100 
90 PRINT L$(A);L$(B);L$(C);" "; 

(space to separate the words) 

100 NEXT C 
110 NEXT B 
120 NEXT A 

Look at line 80. This uses the "Value of truth" functions to 
check whether or not any letter is being used twice. If any of 
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those pairs of numbers are the same then the equation will 
have a value of —1, and the program will jump to line 100. 
Type the program in and run it. The 99 will print out 60 

3- letter combinations, starting with 
"TEX"/TEA"/TES"/TXE"/TXA"/TXS". . . . 

Jot down the good words as it runs and you finish up with 
the following list: 

TEA,TAX,EAT,ATE,AXE,SET,SEX,SEA,SAT 

We can add to the program so that it does the same for 

4- letter combinations. 

75 FOR D=1 TO 5 
95 NEXT D 

and alter lines 80 and 90 

80 IF (A=B)+(A=C)+(B=C)+(A=D)+(B=D)+(C=D) 
THEN 95 

90 PRINT L$(A);L$(B);L$(C);L$(D);" 

This time you will get 120 combinations. The useful ones are 
here: 

TEAS, EATS, EAST,AXES, SEAT 

You can add a further loop to check for 5-letter combinations. 
It is interesting - but an almost complete waste of time with 
"TEXAS". The only other acceptable word from the 120 new 
combinations is "TAXES". 

Try this program out with a different base word. Make 
sure that the number in the loops is the same as the length of 
the word. 
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2 

Dice and board games 



Time to take a break from the complexities of computer 
strategies and turn to simple board games. Here the 
computer can still take an active part, but its play is 
automatic. Sometimes it's useful to have a second "player'' 
sitting in the 99 ready for when you feel like a game. 

The actual screen display is a vital part of any board game. 
But don't worry too much at first about the quality of your 
colours or the details of the graphics characters that you are 
using. They can always be improved later, once the game is 
running properly. Likewise with any messages or special 
effects - they can be sorted out later. Get your pieces moving 
in the right way at the right time first. 

The simplest type of dice-based race is one where the 
counters start on the left-hand side of the screen, and move 
across to the right, travelling as many squares as are shown 
on a dice. (Figure 5) 
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C(l) and C(2) hold the Column numbers for the counters. 
D is the random number produced for the "dice". A player's 
movement is run through a simple loop which blanks out his 
previous position and re-prints one column further on. 

FOR N = 1 TO D (how many moves) 

CALL HCHAR(15+P,C(P),32) (P = Player number) 

C(P)=C(P)+1 

CALL HCHAR(15+P,C(P),120) (120 being your 

graphic) 

NEXTN 

Notice here how the player number (P) is used not only to 
control which Column variable is used, but also to adjust 
the Row position, so that Player 1 is on Row 16, Player 2 on 
Row 17. 

Try writing a game using a routine like this. Leave the dice 
as a simple number display for the moment. Get it running 
and play it until you are bored. 

Bored with it yet? Right, now's the time to look at some 
variations. 

1 There and Back again 

This time the race is across to the right hand edge, and back 
to the start. You do not need a "move right" routine and a 
"move left" routine for this. All you need is a direction 
indicator. (W = Which Way). The line that alters the column 
variable: 

C(P)=C(P)+1 

needs to have two forms: 

C(P)=C(P)+1 and C(P)=C(P)-1 

Start with W set to +1 and write in a check line 
(C(P)=C(P)+W). 

At the moment you should have something which checks 
for the end: 

IF C(P)=32 THEN (off to the Win routine) 
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Alter that line so that it sends the program off to a line which 
makes W= — 1. Your end-check line should now be: 

IF C(P)=1 THEN... 
2 Improve the Display 

Moving one square at a time means that you haven't really 
got room to draw a decent sized board. The only way you 
can mark out your board is by making little "square" 
graphics: 
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Figure 6 

and printing these instead of spaces when you wipe out the 
counters. 

If you make each move two squares long, then it leaves 
space for marking out a board. 
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Figure 7 
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Figure 8 

You will need to create a set of graphics like those of figure 8, 
to produce a board like figure 7. Drawing lines through the 
middle of squares in this way means that your counters are 
in the centre of the marked squares. 

The movement routine remains the same as before, except 
that W is now either +2 or -2. 

C(P)=C(P)+W 

If you look at the DICERACE program you will see that there 
the movement is of three spaces at a time. This produces a 
very spread out board, and does so using only the one board 
graphic. 

3 Round the Board 

In the "single-track" races, each counter has had its own line 
to run along. With a "round the board" game, this could get 
complicated, and you will find it easier to use a track made 
out of a single set of large squares, as in DICERACE. There 
are complications with this as well, but only minor ones. 

You do not want to have counters printed on top of each 
other - unless you are making a Ludo type of game (see 
below). In DICERACE, each counter has its own corner of 
the squares, and the three-at-a-time movement keeps it in 
the same corner. Now the problem is that a single row or 
column check is not enough. Two counters in the same 
square could be at rows 20 and 21, and columns 6 and 7. The 
movement section of DICERACE starts at line 970. Look 
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there to see how the counters' positions are checked. You 
will also notice there that a different way of changing 
positions is used. If a counter is on the right-hand side 
(below the top square) the program goes to 1040 where the 
row (P(N,1)) is reduced by three. This is easier than using a 
"Which Way" variable, as the row number can be added to, 
reduced, or stay the same. The routines needed to alter each 
Which Way variable at the appropriate time would be rather 
complicated. 

4 Dice with spots on 

The dice display in DICERACE is big and easy to read, but 
rather slow in appearing. This is because each dice picture is 
made up of 9 squares. The pictures are all held in the D$() 
array, and the 99 has to find the right picture and display it 
with a HCHAR routine, one square at a time, (see lines 
5000-5060) 

A single character dice could be displayed much quicker, 
and a better "rolling" effect could be produced, but the 
graphic would be rather small. A compromise solution is to 
use a 2x2 dice display, but now you need 24 graphics 
characters, as each comer of every "face" is different: You 
may like to alter DICERACE to give it a smaller, but faster 
dice. Remove the graphics for characters 120 and 122 (line 
160), and the whole routine from 425 to 650. Re-dimension 
the D$() array (line 80) and write in your own routine to 
define graphics and to set them into the D$() array. You 
could use the characters from 96 to 119. Don't forget to 
define your colours for those sets. 

Start something like this: 

430 FOR N=96 TO 119 
440 READ G$ 
450 CALL CHAR(N,G$) 
460 NEXT N 

470 DATA 0000000000010307,000000000080C0E0, 
0703010000000000,E0C0800000000000.- 

That's the one spot. 
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Put the characters in the array like this: 



500 D$(1,1)= CHR$(96) & CHR$(97) 
510 D$(1,2)= CHR$(98) & CHR$(99) 

5 Counting Exercise 

Rather than moving the counter automatically after the dice 
has been rolled, have a routine which asks the player to 
press the number of the dice. This turns the game into a 
simple counting exercise for young children. If you do this, 
then you should include a check routine, so that if the child 
is unable to find the right number after 2 or 3 goes, the 99 
tells him which to press. This can be slotted into DICERACE 
as a sub-routine, with a line 



965 GOSUB 7000 

to send it there. Here's the flowchart for the routine. 




"Press the number' 




Press" & STR$(Z) 



Figure 9 
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"Z" is the random number for the dice. Add 48 so that it can 
be compared with the "K" ASCII code. 

6 Incidents 

Add some excitement to the race by writing in incident 
routines. These can be of the immediate, or delayed action 
types - either "go back to the start" or "miss the next go". 
The section of DICERACE from 3000 is left for your 
incidents. 

First decide where your incidents are, and write in check 
lines to pick up any counters that land there. 

IF (P(N,2)>29)*(P(N,1)<5)... 

This line in the DICERACE game would pick up any counter 
in the top right-hand square. 

IF (P(N,1)>10)*(P(N,1)<13)... 

This would pick up counters on rows 11 or 12, on either side 
of the board. 

To move a counter backwards or forwards is very simple 
now. You know exactly where it is, so you can tell exactly 
how far and in which direction you want it to move. You do 
not need the same kind of checks that you have in the main 
movement loop. 

P(N,1)=P(N,1)+6 

This would move a counter on two, if it was on the left-hand 
side, and back two if it was on the right. 

7 Snakes and Ladders 

This is really a variation on There and Back again, with 
incidents. A Which Way variable is used to control 
movement, but the routine which changes W also moves the 
counter up a row. 

W=W * -1 
R(P)=R(P)-1 
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These lines work equally well for both edges. Multiplying by 
—1 changes plus to minus, or minus to plus. 

The counters will rub out your nicely drawn snakes and 
ladders as they move round, but do not worry, this can be 
put right. Use the CALL GCHAR sub-program to find out 
what character is on a square before you print a counter 
there. When the counter moves off, replace it, not with a 
space, but with the right graphic. The GHAR check can also 
be used to spot the tops of snakes and the bottoms of 
ladders. You will need as many up and down sub-routines as 
you have lengths of snakes and of ladders. Jump the counter 
from one end to the other if you are feeling lazy, or when 
you first put the program together. Move the counter square 
by square if you are up to making the effort. The 99 has 
enough memory space to cope with a very detailed game. 



8 Ludo 

DICERACE can be turned into a simple one-counter game of 
Ludo. Change the start positions of the counters so that they 
all occupy the same square. Next write in a GCHAR check so 
that if a counter lands on top of another at the end of its 
move, the original counter is sent back to the start. You will 
also need a GCHAR check on the squares that a counter 
passes over during a move, so that any covered counter can 
be reprinted afterwards. 

For a proper Ludo game you will need a totally new 
program. The board needs to be drawn with a set of paths 
leading to the "homes". Each player heeds 4 counters, so the 
array that holds information about the counters needs to be 
changed. P(4,4,3) will hold row, column and graphics 
number for 4 counters for 4 players. 

Most importantly, you will have to teach the 99 the tactics 
of the. game. Which of its four counters should it move? 
Should it chase the one ahead, run from the one behind, or 
just try to get "home" as quickly as possible? When should it 
turn off the main track and up the path to "home"? 
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The game has many complications, and is probably best 
left until you have reached the War Games section of the 
book. There you will come across ways of teaching the 99 to 
make these kinds of tactical decisions. 
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Figure 10 
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Cont get cross! 



No, don't get cross if the 99 won't let you win at CROSSES - 
just fix the program so that it will. 

CROSSES is included in this pack for two reasons - it 
shows how arrays can be used to keep track of a game, and it 
also shows that it is possible to turn your 99 into an expert at 
a game. The 99 can learn any game as long as you can 
analyse the game thoroughly enough and as long as the 
memory space can cope with all the possible game 
variations. 

Noughts and crosses is a simple game, and there are only a 
limited number of moves. If you think about how two 
humans play the game, you will realize that after the first 
few moves, neither player has much real choice. He is either 
stopping his opponent from completing a line, or finishing 
one of his own. In either case, the player is looking for two of 
the same marks in one line. The game is really decided in 
those first few moves. That is the more difficult part, so we 
will leave it until later. Let's look first at the "two-in-a-line" 
checker. 

For the 99 to play intelligently it must be able to "see" the 
game. You could use the GCHAR function for this, but it is 
much easier to record the moves in an array. A simple 3x3 
array will match the screen display. 

8(3,3) 



\r [oioio] 



Figure 1 1 



We can now indicate a move by changing the value in the 
array. In CROSSES, "1" is used to show the player's move. 
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X 




Figure 12 



Two crosses in a line would appear as 110, 101, or Oil. 
Whichever way they are, if you add up the values in that line 
you get a total of 2. The 99 now has a simple way to spot a 
line that needs stopping. Likewise, if the total of the line is 3, 
then it knows that you have won - an unlikely event! 

We need to mark the 99's move in the array. "1" shows a 
cross, but we can't use 2 or 3 because a single nought in a line 
would then have the same value as 2 or 3 crosses. The next 
available number is 4. Let's use that. A total of 8 now shows 
two noughts, and the 99 will know to finish that line and 
win. 

Over twenty-five different combinations of noughts and 
crosses (and spaces) are possible, but if you remember that a 
single nought, or cross, or space in a line gives the same total 
wherever it is, then there are only 10 combinations to think 
about. 

Screen display Array Line Total Action? 



X__ 
XX_ 
XXX 

o__ 

OX_ 
OXX 

oo_ 

OOX 

ooo 



000 
100 
110 

111 

400 
410 
411 
440 
441 
444 




1 
2 
3 
4 
5 
6 
8 
9 

12 



Yes - put an O quick! 
Player wins 



No 
No 



No 
No 
No 



Yes - put an O quick! 
No 

99 wins 



Figure 13 



You will see that if the total is 2 or 8, then the 99 must 
search for the space in the line and put its nought - either to 



stop the player, or to win. A total of 3 or 12 is the end of the 
game. 6 and 9 both show full lines which can be ignored, and 
a line total of 5 is no use either, as neither player can win on 
it. This leaves 0,1 and 4 lines for free use, but in fact, once 
you have checked for key totals, the overall shape of the 
game is more important than any single line. 



Checking Routines 

The checks on the lines cannot simply add across the rows of 
the array. There are 8 possible winning lines in noughts and 
crosses. 




Figure 14 

Each line must be checked. One way to do this is to 
transfer the values of the lines from the screen array, S(3,3) 
to a working array, W(8,3). 



1 2 3 



X 




1 


1 













2 





4 









X 3 








1 



screen 



Figure 15 



S(3,3) 



3 


1 

0_ 

J_ 





> hori; 



horizontal 



vertical 



I diagonal 



W(8,3) 



The first three lines are the simplest to transfer: 

FOR R=1 TO 3 
FOR C=1 TO 3 
W(R,C)=S(R,C) 
NEXT C 
NEXT R 
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For the next three, the order is reversed, so that the hnes are 
read down, not across. The only difference is in the actual 
transfer line: 

FOR R=1 TO 3 
FOR C=1 TO 3 
W(3+R,C)=S(C,R) 
NEXT C 
NEXT R 

These routines can be happily merged into one. (See lines 
500 - on in the LIST of the CROSSES program in the 
Appendix) 

TTie diagonals are a bit more fiddly, and can best be 
understood by looking at the co-ordinates: 







1,3 




2,2 




3,1 




3,3 



Figure 16 

FOR R=1 TO 3 
X(7,R)=S(R,R) 
W(8,R)=S(4-R,R) 
NEXT R 

Line W(7) in the working array now stores the values for 
squares (1,1), (2,2) and (3,3). W(8) holds those for (3,1), (2,2) 
and (1,3). This routine is tucked into the R loop at lines 550 
and 560. 

The program is now able to run through the working array 
and check line totals. It has to do it in a certain order of 
priority. It is no good simply totalling each line to see what 
comes up. The 99 must first check for a line total of 3. (Lines 
710 to 770). If the player has won, then there is no point in 
going further. The next most important line total is 8 - 
winning chances must not be ignored. (Lines 780 to 830). The 
third total to look for is 2 so that the player can be stopped. 
(Lines 840 to 880). 
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Here is an example of the check routines in action. 



Screen Screen array 



Working Array Line totals 






X 





4 


1 


4 




X 







1 









X 








1 



across 



down 



diagonal 



414 


9 


010 


1 


001 


1 


400 


4 


110 


2 


401 


5 


411 


6 


014 


5 



Action! 



Figure 17 



The 99 found no 3 or 8 totals, but it did spot the 2 in line 5 - 
the centre vertical. The program goes off to the sub-routine 
at 2000 to look for the blank in the line and write in its 4. This 
value is then transf ered back from the working array to the 
screen array (see lines 1000 to 1110), and the move is 
displayed on the screen. (Lines 1130 to 1200). 

If the 99 does not find any 2,3 or 8 total, and it almost 
certainly won't in the early part of the game, then it must 
"think" about its move. 

First move strategy is straightforward. The centre square is 
so important, that if the player has not already gone there, 
then the 99 will. If the centre square is in use, then the corner 
squares are more use than middle of line squares. The 
routine from 600 on covers this first move. Look at it in the 
LIST - remember that W(2,2) is the centre square. You will 
notice a line: 

610 IF RND>.9 THEN 700 

This is one of the things that gives you a chance of winning. 
9 times out of 10 the 99 will take the centre square if it can, 
but every now and then it will miss its chance. Remove this 
line completely if you want to make the 99 even harder to 
beat. Reduce the random limit if you want to improve the 
player's chances. 
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Line 640 will always mark a nought in the top-left hand 
corner. Because the crosses board is so symmetrical, all 
corners are, in effect, the same. You could, if you liked, add 
an extra routine here so that the 99 chooses a corner at 
random. It would add variety to the game's appearance, but 
would make no difference to the way it played. 

At the second move stage there are two dangerous 
situations that the line totals check will not spot. They are 
these. 



Figure 18 



The 99 could either go for a corner or for one of the 
middle-of-line squares. Here's what happens with a corner 
move. 



99's move 



Player's 3rd move 



99's 3rd move 



Nought line stopped 
-2 lines setup. 



99 can only stop 

one line - player must win. 



Figure 19 

A middle square move takes the game to a draw. 



99's move 



Player's 3rd move 



99's 3rd move 



X 




X 




X 
















X 












X 




X — 




X 



Figure 20 



Nought line stopped - 
only one line setup. 



99 blocks cross line- 
must end in draw. 
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The lines that check for these situations are between 900 
and 970. Look at line 900: 

IF (RND>.9)*(W(1,1)=1)*(W(3,3)=1) THEN 940 

You will see that another random factor has been built in. 
Remove that random expression and the 99 will never miss 
such a dangerous situation. Reduce the random limit to 
improve the human's chances. 

There is one last routine written in to cover those odd 
situations where there is no obvious move for the 99 to 
make. In practice the routine will be hardly ever used, but it 
must be there to fall back on. It is written in from line 2500 
onward. 

If all else fails, the 99 will mark its nought in the top right 
(W(l,3)) if it's free, otherwise the bottom middle, or the first 
empty square it comes to. 

Letters to Co-ordinates 

You might have expected the squares on the board to have 
been identified by co-ordinate numbers: 

12 3 
1 I 

2 

3 I 

Figure 21 

The player would then have been asked "Which Square? 
Row? Column?" The numbers could have been simply 
collected by two CALL KEY lines and transferred directly to 
R and C variables. 

CALL KEY (3,K,Z) 
IF Z = THEN... 

R=K— 48 (changes ASCII code into number) 

By the way, you may note that in the program the CALL 
I^Y line has been changed from its usual form . . CALL 
KEY(3,K,S) to CALL KEY(3,K,Z) 
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S cannot be used as a simple variable because it is used 
elsewhere in the program as the arrayed variable S(3,3). 
Trying to use a simple and an arrayed variable of the same 
name will give you a *NAME CONFLICT message. 

CROSSES uses letters rather than co-ordinates. It makes 
the program a bit fiddlier, but is easier for the player to 
operate. The letters are written into the board by the routine 
between 270 and 310. The key line is 290. 

CALL HCHAR(9+R*2,13+C*2,93+3*R+C) 

This gives the spacing - 9+ R*2 produces the Row numbers 
11,13 and 15, 13+^2 gives you Columns 15,17 and 19. The 
third expression turns the R and C variables into the codes of 
letters from 'V to "r. 

R C 3*R+C 93+3*R+C (ASCII Code) Letter 

114 97 A 

1 2 5 98 B 

3 1 10 103 G 



Column 



A 


B 


c 


D 


E 


F 


G 


H 


1 



1,1 


1,2 


1,3 


2,1 


2,2 


2,3 


3,1 


3,2 


3,3 



Figure 22 



To convert the letter code of the player's move back into 
co-ordinates, you need another bit of mathematical juggling. 

400 R=INT(K-62)/3) 
410 C=K-(61+3*R) 

Not very friendly equations, but see how they work. 
Suppose the player has gone for the centre square. He 
presses "E", Code "E" is 69. K collects large capitals. 

K K-62 (K-62)/3 
69 7 2.33 



INT((K-62)/3) 
2 
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If "G" was pressed. . 

71 9 3 3 

To jfind C, you reverse the expression used earlier in the 
HCHARline. 



Letter 


K 


R 


6H-3*R 


K-(61+3*R) 


"E" 


69 


2 


67 


2 


"G" 


71 


3 


70 


1 



The 99 Starts 

CROSSES has been written so that the player always starts. 
This was mainly to keep the program simple, but it should 
also give the player a much-needed advantage. However, it 
can be readily adapted so that the 99 and the player take it in 
turns to start. The first change to make is to put the codes for 
printing the noughts and the crosses into variables. At the 
moment you have this line after the player's move: 

CALL HCHAR(9+2*R,13+2*C,88) 

88 is the code for "X". Change this to: 

CALL HCHAR(9+2*R,13+2*C,PM) 

PM (Player's Mark) is set earlier to be 88, but is changed to 79 
("O") at the end of the first game. You will also need CM for 
the Computer's Mark and this will likewise be switched 
between 79 and 88. The routine which updates the screen, 
after the computer's go, is between 1130 and 1200. 

To swop those "O" and "X" codes over, use a simple 
switch routine of the bubble-sorting type. (See next chapter). 

First Move 

Insert 2 lines before the start of the main game loop. 

314 IF PM=88 THEN 320 (jump next line if player 

starts) 

316 60SUB 1500 
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At 1500 you can write in whatever first move you want. 
Taking the centre square is the best bet, but some people 
object to the first player going there. You can always write a 
randomized routine so that different first squares are chosen. 
You will also need to include a line to display the move. The 
game can now return to the main loop and carry on as 
before. 

If, as you play your new version, you discover new 
dangerous situations, then include more check lines to cover 
them, after line 900. 
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4 

Dealing and sorting 
apacl<of cards 

A full analysis of a card game program is beyond the scope of 
this book. Even the simplest card games require a very 
careful study of the tactics and strategy of play. Card-playing 
isn't simply a matter of logic either. A good player will watch 
his opponents' expressions, note the way they play during 
each game, and make guesses about the kinds of hands they 
hold. However, in this chapter, and further on in "Do you 
want to bet?", we will cover some of the techniques needed 
in card game programs. 

The program CARDS shows how arrays can be used to 
hold information about the pack, and about individual 
hands. It also shows how to sort a hand by order of card 
value. The program shuffles and deals out all 52 cards, as if 
in preparation for a game of whist or bridge, and it makes 
sure that no card is used twice. It aims to do this as quickly as 
possible. There is always a problem with picking numbers at 
random, and it is this. The more numbers you pick, the more 
likely you are to get one that has cropped up already. By the 
time you are down to the last few numbers, it is very unlikely 
that you will find an unused one. A little program will show 
this. Let us suppose that you wanted the 99 to pick the 
numbers 1 to 10 in random order - each one only once. After 
a while all the numbers will have been found except one (say 
6). This program shows how many times it would have to 
pick a number before it found that special one. 

10 RANDOMIZE 

20 N= 1 (Number of pickings) 

30 X=INT(RND*10)+1 

40 PRINT N,X 

50 IF X=6 THEN 80 
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60 N=N+1 
70 GOTO 30 
80 STOP 



Type this in and run it a few times. How long does it take to 
find 6? Now change that random number in line 30 to ''52". 

In the CARDS program, the pack is held in a two- 
dimensional array - C$(4,13). Each point in the array 
contains two characters, which show the Suit and the Value 
of each card. Special graphics are defined for the suits and 
for the high value cards. The suits are Spades (120), Hearts 
(113), Diamonds (112) and Clubs (104). Notice that the higher 
value suits (for bridge players) have higher graphics 
character numbers. 10, Jack, Queen, King and Ace are 
defined twice into character numbers 114 to 118 and 121 to 
125. This is so that they can be coloured black and red to fit 
the suits. 

The routine from 3000 to 3160 collects the characters into 
the C$() array. It works through one suit at a time, first 
READing the Suit graphic (S$), and then calculating the 
value character, using the T loop (3050 to 3130). The first 8 
numbers are converted to card values 2 to 9 with the line: 

3060 V$= CHR$(49+T) 

The higher value cards characters are produced by lines 

3090 V$=CHR$(112+T) (the black graphics) 
■ ■ ■ 

3110 V$=CHR$(105+T) (the red graphics) 

The cards are then ''Shuffled and Dealt" by the routine from 
3200 to 3300. You will see that this only deals three hands. 
This avoids the long searches for the last remaining cards. 
The program first checks that a card has not been used, 
before it transfers the card to the hand (H$()), and then 
marks that card off in the pack array. 

3250 IF C$(X,Y)='"' THEN (new RND numbers) 

3260 H$(T,N)=C$(X,Y) 

3270 C$(X,Y)="" (this card now dealt) 
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To collect the last hand together (H$(4,. .)), a separate routine 
is used - 3400 to 3530. This scans through the whole pack 
array looking for undealt cards, and transferring them to the 
fourth hand. 



Sorting Cards 

The human player would probably sort his cards by first 
grouping them into suits, and then ordering each suit. You 
could get the 99 to do it this way, but a simpler method is 
used in CARDS. It is called "Bubble sorting" or "Ripple 
sorting". 

Every card has two values - the suit and the card number. 
These "values" are actually the character numbers, and the 
sorting routine is the same one that would be used for any 
alphabetical sort. Type in this program: 



(INPUT stage. Enter words 
of any length) 



(Sort 
routine) 



10 OPTION BASE 1 

20 DIM W$(10) 

30 FOR N=1 TO 10 

40 INPUT W$(N) 

50 NEXT N 

60 FOT T=1 TO 9 

70 FOR N=1 TO 9 

80 IF W$(N)<=W$(N+1) THEN 120 

90 X$=W$(N) 
100 W$(N)=W$(N+1) 
110 W$(N+1)=X$ 
120 NEXT N 
130 FOR P=1 TO 10 
140 PRINT W$(P);" "; [ (PRINT-out) 
150 NEXT P 
160 PRINT 
170 NEXT T 

Line 80 compares the ASCII codes of pairs of W$() words. If 
the words are "A" and "B", then it notes that ASCII "A" is 
65, and less than ASCII 'B" (66). The sort routine would be 
jumped; If the words were "AN" and "ANT", then it would 
find that the first two letters were the same, but that "T" is 
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more than nothing. Again the sort routine would be jumped. 
If W$(N) ="ZOO'' and W$(N+1) ="ANIMAL", then it 
would go through the lines from 90 to 110. 

"ZOO" is there transferred to a temporary store 
(X$);W$(N) is redefined to be "ANIMAL" and finally, 
W$(N+1) takes "ZOO" from the temporary store. You could 
think of it like this: 
Start 



W$(N) 
"ZOO" 



X$ 



W$(N+1) 
"ANIMAL" 



1st move 



W$(N) 
"ZOO" 



X$ 

"ZOO" 



W$(N+1) 
"ANIMAL" 



2nd move 



W$(N) 
"ANIMAL" 



X$ 

"ZOO" 



W$(N+1) 




"ANIMAL" 


4 



End 



U$(N) 
"ANIMAL" 



Figure 23 



W$(N+1) 
"ZOO" 
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Exactly the same process takes place in the CARDS, except 
that the sign in the ''does-it-need-sorting" line is reversed 
> = and not < = . This is so that the highest value cards are 
at the start of the line. 

The suit characters codes are fixed so that Spades are 
worth more than Hearts, and Diamonds and Clubs follow 
after. The suit characters appear first in the string, so that 
any Spade is worth more than any Heart, just as any word 
starting with "B" has a higher value than any word starting 
with "A". The high card graphics are similarly ordered. 
Thus, the Ace of Spades has the ASCII codes 120 (Spades) 
and 125 (Ace). The King of Spades has codes 120 and 124. 
The 10 of Diamonds has codes 112 (Diamonds) and 114 (ten); 
the 9 of Diamonds has codes 112 and 57 (normal 9 character). 

The sorting routine in the CARDS program is between 
lines 320 and 440. The fact of having four hands to sort 
makes it appear a little more complicated, but compare it 
with the program given above. Notice how in both programs 
the numbers in the sorting loops are one less than the 
number of items to be sorted. This has to be, as otherwise the 
expression W$(N+1) would take you beyond the edge of the 
array. Both programs also travel round that sorting loop for 
one fewer times than there are items. On any one run 
through the inner loop the items can be passed several places 
to the right, but at most one place to the left. A hand that had 
the Ace of Spades on the far right would need to be rippled 
12 times to pull it across to the far left. 

If you want to slow the sort down, so that you can see it 
better, write in: 

395 INPUT A$ 

Now press ENTER when you are ready for each new move. 

CARDS has been written so that it can form the basis of a 
card game program of your own. Delete those lines which 
PRINT the pack (3125), the hands (220-280) and the sorting 
process (3550-3650). You now have a pack of cards, and 
no-one can see them! 
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5 

Decisions, decisions 



Computers make decisions by means of branching lines, 
IF. . .THEN. . . ELSE. . .or ON. . . GOTO. . . . You met 
them in the CROSSES program: 

IF (the centre square is free) THEN (put a nought there) 
LOGICOL uses a far more complicated branching routine to 
work the 99's strategy. Let's start by looking at the other part 
of the game, where the human is trying to guess the 99's 
hidden colours. 

LOGICOL may well remind you of the game Mastermind, 
itself a plastic peg version of an old paper and pencil game. It 
is similar in a way to HANGMAN, in that a set is to be 
guessed. Here it is a set of colours. With HANGMAN it is a 
set of letters (that form a word), but there the player guesses 
only one item at a time, rather than a whole set. 

The computer's checking routine is much the same, but 
now, instead of checking one variable against a string, the 99 
is checking a string against another string. Look at the LIST 
for the program in the Appendix, and find lines 900 to 1000. 
P$(4) holds the player's 4 guessed colours. C$(4) holds the 4 
colours that the computer picked at the start of the game. 
The two strings need to be compared to see if any colours are 
in the same place in both strings (line 920 IF P$(T)=C$(T) 
THEN 950), and also if any of the player's colours turn up 
anywhere in the computer's set. (Line 930 IF P$(T)= C$(N) 
THEN 970). In the following example, the computer's set is 
Blue, Cyan Green and Magenta. The player has just guessed 
Red, Green, Blue and Magenta. 

C$(4) B C G M 
P$(4) R G B M 

On the first run through the T loop, the 99 finds that C$(l) 
and P$(3) are both "B" - blue. It marks off one Right Colour. 
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BCGM 
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The common "G" is picked up on the third run. Finally it will 
spot that C$(4) and P$(4) are the same, and will add one to 
the Right Place score. 

Once you have had your go, whether you got it right or 
have simply run out of guesses, then the 99 will ask you if it 
can have a go. 

You don't have to let it, and, unlike some human players, 
it won't sulk if it doesn't get a turn. It's not very good at the 
game in any case, and can only sort out which are the right 
colours, not where those colours should be. The program 
allows for four out of six colours to be used, and each one can 
only be used once. This means that there are 15 possible 
combinations. The flowchart in figure 24 shows how the 99 
works out which combination. You will notice that the 99 
solves the problem in no more than six guesses. 

That flowchart is the result of a lot of game- watching, and 
several lengthy sessions with pencil and paper. This is 
essential with any game program. Do not expect to be able to 
write it directly into the 99. Think about how you and other 
humans play the game. Record every guess you make, every 
decision you take, and the reasoning behind every decision. 
When you have your strategy written down as a series of 
decisions, it is quite easy (really!) to turn it into the 99's 
program. 

Lines 2070 to 2890 in the LOGICOL program show that 
flowchart turned into lines. For simplicity each stage is 
written in exactly the same form. The following lines cover 
that section of the flowchart on the top of the right-hand 
side: 

2700 G$="CGMY" 
2710 GOSUB 5000 

2720 ON K GOTO 2730,2750,2730,3000 
2730 GOSUB 3500 
2740 GOTO 2720 

G$ is the Guess. The sub-routine at 5000 displays the colours 
and collects the player's response into the K store. The 
answer must be a number in the range of 1 to 4. At any stage 
of the program a "1" response will send the program to a line 
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that leads to the sub-routine at 3500, which asks the player to 
"Please check that!" It is not possible to have only one colour 
right, as this would mean that there are 3 wrong. As the 99 
has guessed 4 out of 6 colours, the most it can miss is 2. 

At this particular stage a "3" response will also lead to a 
"Please check that." To have reached this point the 99 must 
have got 3 right on each of its earlier guesses. It has already 
found two wrong colours, and could not possibly have 
found a third. (See the example below). 

A "2" response sends the program on to the next guess 
(line 2750). A "4" jumps out of the guessing routine to 
"How's that then!" and "Do you want another go?" 

If you look at any of the sections which cover bottom of 
flowchart lines you will see the ON K GOTO. . . line looks 
like this: 

2870 ON K GOTO 2880,2880,2880,3000 

The branching here is really only two ways. Either the player 
tells the 99 that he has got all 4 right, or he doesn't. These 
lines could be replaced by a simple: 

2870 IF K = 4 THEN 3000 
2880 GOSUB 3500 

Play through the game a few times, following the 99's 
"thoughts" on the flowchart. You should see something like 
this. Here the colours B,C,G,R were entered by the player. 

Guess Response 99's thoughts: 

B C G M 3 Either R or Y must be right 

C G M R 3 Either C G M are right and I need 

Y or both B and R were right. 
TryY. 

C G M Y 2 So B and R were right. Y is no 

good. 



B C G R 4 How's that then? 



This time the colours were CGRY 



BCGM 
BCRY 

BGRY 
BMRY 

CGRY 

CGRY 



2 2 missing. Must have R and Y. 

3 And B or C; and G or M - not 
very helpful. 

3 Perhaps the B was right, try M. 

2 The B was wrong, and the M. 
But now I know the answer. 

3 "Please check that" (He's 
cheating!) 

4 I should think so too. 



It is perfectly possible to work out a program to sort the 
colours into their right places. Human players can usually do 
it in 4 to 8 goes. The program could be a straightforward 
branching one, but you would need an awful lot of branches. 

Think of how a human player behaves. He will check back 
through his previous guesses noting how many he had right, 
and in the right place, each time. He will see which colours 
can be fixed, and which are likely possibilities, and then test 
out his possibilities next time. The game might go like this: 



Guess 
Number 

1 



Guess Right Right Thinks: Which? 
Place Colour Which order?" 



3 
4 



BCGM 



CGMR 



BYCG 
YCMB 



1 




2 
4 



"One wrong colour, 
and all out of place." 

"B and Y must be 
there." 

"Still a colour short." 
"Got the colours!" 



At this point he knows that the colours are YCMB, and by 
checking guesses 1,2 and 4 he knows that neither B nor C nor 
Y should be the first colour. He can fix M as the first colour. 
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5 MBYC 2 2 "Notalotofhelp- 

try a shuffle." 

6 MYBC 1 3 "Ah! Now we're getting 

somewhere." 

The second colour must be one of Y, B or C, but it can't be C 
(guess number 4 proves that) and it can't be Y (guess number 
6). It must be B. M and B must have been the colours in the 
right place in guess number 5, so we just need to swop over 
Y 

and C. 

7 MBCY 4 "Logicol, isn't it?" 

You are now in a position to start translating the human 
reasoning process into computer language. What follows is 
not the only way of tackling this, and is not, in any case, the 
complete solution. Rather it is a set of suggestions that you 
should be able to work up into the necessary routines. 

For a start you will need a number of new arrays to store 
and handle information. Of these the most significant will be 
a Marking array, (M$(4,6)) in which the 99 can mark off those 
colours that are in the wrong places. You will need to set this 
up at the start of the 99's go, and it should have this form: 



B 


B 


B 


B 


C 


C 


C 


C 


G 


G 


G 


G 


M 


M 


M 


M 


R 


R 


R 


R 


Y 


Y 


Y 


Y 



Figure 25 

Now, whenever the 99 gets a "none in the Right Place" 
result it can work through that array, marking off those bad 
guesses. 



IF RP=0 THEN (to the following routine) 

FOR N=1 TO 4 
FOR T=1 TO 6 

IF SEG$(6$,N,1)<>M$(N,T) THEN... 

(jump to NEXTT) 

M$(N,T) = "" 
NEXT T 
NEXT N 

The player has chosen RMCB. The 99's first guess is 
BCGM, as usual. None are in the right place. After it has 
been through the mark-off routine, the M$() looks like this 



M$(4,6) 



Figure 26 





B 


B 


B 


c 




C 


C 


G 


G 




G 


M 


M 


M 




R 


R 


R 


R 


Y 


Y 


Y 


Y 



3 of the colours were right, so the next guess is CGMR. 
Here's that array again after this time. 



M${4,6) 



Figure 27 





B 


B 


B 






C 


C 


G 






G 


M 


M 






R 


R 


R 




Y 


Y 


Y 


Y 



3 Right Colours again. The next guess should be CGMY, but 
in this version it pays to alter the order of the letters each 
time, as this helps to find the right places. The guess is 
GMYC 

This gives a "1 in the Right Place" result, which is not very 
helpful as the 99 hasn't a clue which one. It does, however, 
know that as only 2 colours were right altogether, the Y must 
be wrong. You can write in a little routine at this stage in the 
branching program to mark off all Y's. 
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FOR N=1 TO 4 
M$(N,6)='"' 
NEXT N 

Time for the next guess at the colours. It is written as 
BCGR in the simple version, but we will shuffle the letters 
for this version. G$ = "GRBC This produces another 
"None in the Right Place" result. The M$() array is getting 
quite empty by now. 





B 




B 






C 










G 


M 


M 






R 




R 


R 











all "Y"s marked off already 



Figure 28 

The next guess at the colours finds the 4 right colours. The 
guess has been shuffled so that G = "RBCM". This gives us 
a "1 in the Right Place" result (the C), but at the same time 
lets us mark off the other wrong colour - G. 

We now need to go back to that earlier guess where we 
had 1 in the Right Place - GM YC. A temporary store is 
needed to hold those sort of guesses, so that they can be 
recalled later. (S$(10) will hold ten guesses). Compare that 
with the M$() array to see if 1, and only 1 could be right. 

FOR X = 1 TO 10 

Z = (counter) 

IF S$(X)='"' THEN (jump to next X, this store 

is empty) 

S 1 $=S$ ( X ) (simple Strings are easier to handle) 
FOR N=1 TO 4 
FORT= 1 TO 6 

IF M$(N,T)<>SEG$(S1$,N,1) THEN 

(jump to NEXT T) 

Z=Z+1 (found one that matches) 

T1 = T (remember where you found it!) 

N1 = N 
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NEXT T 
NEXT N 

IF Z =1 THEN (next routine) 

NEXT X 

The "M" is found in column 2 (Nl - 2) and row 5(T1 = 5). 

The next routine trims down the M$( ) array. First it goes 
through that array and marks off all the other appearances of 
the "Right Place" colour. 

FOR N= 1 TO 4 (across the columns) 

IF N= Nl THEN (jump to NEXT N) 

M$(N,T1)="" (mark off) other M's, atM$(l,5), 
M$(3,5) and M$(4,5) 

NEXT N 

In the example, the M in the second place was the Right one. 
The M$() array is pared down to this. 



Figure 29 





B 




B 






C 














M 






R 




R 


R 











We know that M is right in the second column, so any other 
letters that are there can be removed. 

FOR T = TO 6 (down the rows) 

IF T = T1 THEN (jump to NEXT T) 

M$(N1,T)="" 
NEXT T 

This removes the "B", leaving only the "M". 

A simple check down the columns to see if any column has 
only one letter left, will show any other certain Right Places. 
The first glance at the array shows us that R must be the 
colour in the first place. Mark that off in the other columns 
and it leaves only C in the 3rd column and B in the 4th. 

If that was the end of the story, then life would be 
(relatively) easy. Unfortunately it isn't. There will be many 
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times when the 99 has found the 4 colours, but does not have 
enough information to work out their places. It will now 
have to try new combinations of the colours. There are 24 
possible combinations! Over half of these will give 1 or 2 
Right Place results, which are not a lot of use to the program. 
The simplest approach is to try a few shuffles and hope that 
something comes out of them. This routine swops the last 
two colours over. 

G$ = SEG$(G$,1,2) & SEG$(G$,4,1) & 
SEG$(G$,3,1) 

This swops the two halves of the string over. 

G$ = SEG$(G$,3,2) & SEG$(G$,1,2) 

The "shuffle and test" routine should increase the 99's 
success rate. It is possible to write a far more sophisticated 
program that compares every guess and its results, the way a 
very good player does, and performs the complex logical 
reasoning needed to solve the problem quickly. However, 
who wants the computer to win every time? 

To adapt the LOGICOL program so that the 99 can try to 
find Right Places as well, you will need to do the following. 
Slip in a GOSUB line somewhere between 1850 and 2070, to 
send the 99 to a sub-routine to set up its arrays. Add in the 
main "Right Place" routine at 5200. This should include the 
player's response, marking off M$() and storing any "1 Right 
Place" results. When 4 Right Colours have been found, the 
program should now go to a section to check if all the Places 
are known, and if not, to "shuffle and test". You will also 
need to alter the order in which the letters appear in the 
Guesses, so that more places are tested, and you can add in 
two small routines to mark off "R" and "Y" at certain places 
in the branching routine. Figure 29 shows the new version of 
this routine. 
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BCGH 




- — © 

Mark off all "Vsnow. 

Figure 30 
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6 

Co. you want to bet? 



The worst thing about playing gambling games with a 
computer is that it won't pay up when it loses. The best thing 
is that it doesn't expect you to either! "Pick-a-Straw" and 
coin-tossing games were covered in the earlier Game 
Writer's Pack. Here we will look at two games where the 99 
has to think about its game. 

Vingt-et-un 

This game is also known as "Pontoon" and "21". The object 
is to get a set of cards that total 21, or as near to 21 as 
possible. All picture cards have a value of 10, and the Ace 
counts 11, though in some versions of the game it can also be 
counted as 1. Cards are dealt by the "Banker", who also acts 
as a player. At first each player is dealt 2 cards, further cards 
are dealt at the players' request. A player whose hand totals 
more than 21 is "bust" and out of the game for that round, 
otherwise, the one whose hand is closest to 21 wins. In the 
version that we will work out now, each player pays 5 chips 
at the start of each round, and a further chip for each extra 
card. The bets are collected into a kitty which goes to the 
winner, or the banker if all the other players are "bust". 
Figure 30 shows the flowchart for the game. 

A number of arrays are needed here. 

P$(4, 13) The ordered Pack 

D$(52) The shuffled Deck 

N$(6) Names of up to 5 players and "Banker" 

H$(6) Their Hands 

HV(6) The Hand Values 

B(6) The Bets 

C(6) The players' Chips - start with 100 each. 
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VINGT-ET-UN 



SET UP ARRAYS 



HOW MANY PLAYERS? 
PLAYERS' NAMES 



SET UP PACK 



SHUFFLE TO D$(52) 



RESET 
ARRAYS 
H$( ) 
HV( ) 
B( ) 
and variable 
KT (Kitty) 



DEAL HANDS 



EXTRA CARDS 
FOR 
PLAYERS 



EXTRA CARDS 
FOR 
BANKER 






Figure 31 




You will also need several sub-routines which are not 
shown on the flowchart. These are to allow you to PRINT 
anywhere, INPUT anywhere, and check INPUTs for number 
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values. Normal PRINT and INPUT commands will obviously 
destroy any screen display. If you are working in 
EXTENDED BASIC you can use the DISPLAY AT and 
ACCEPT AT commands instead. 

You can adapt the CARDS program to give you some of the 
routines that you will need. It will also save you the trouble 
of defining your own graphics. Notice a significant change 
here. In CARDS the pack was shuffled and dealt in one 
operation. You could use a variation of that technique, by 
picking a card at random from the Pack, each time one was 
wanted. Here another technique is used, for the sake of 
variety. Instead of the cards going, at random, to different 
hands, they are collected into a single array - D$(), the 
shuffled Deck. In this particular game, you will never 
actually need a full deck. Even with 6 players, you will only 
use at most 30 cards, as no hand is likely to have more than 
5. It is enough, therefore, to shuffle only 30 or so cards into 
D$(). This will save the long hunts for the last few unused 
cards. 

The number of players is collected at the start of the game 
into variable PN. This is then increased by 1, and the last 
player is the 99. Players' names are collected by a loop: 

FOR T = 1 TO PN-1 
INPUT "NAME ":N$(T) 
NEXT T 

N$(PN)="BANKEr 

Hands are dealt into single string arrays. The variable CN 
keeps track of the Card Number in D$(). At first 2 cards are 
dealt to each player: 

FOR C = 1 TO 2 

FOR T = 1 TO PN 

H$(T)= H$(T) & D$(CN) 

CN=CN+1 

NEXT T 

NEXT C 

If a player is lucky, then his hand might be like this - H$(4) = 
10 ♦A" A variation on this routine is needed for the 



56 



"Extra Cards for Players". Work through the players one at a 
time (not including the 99) and ask if another card is wanted. 
If yes, add the next D$() card to his Hand (H$()). Ask again. 
Players can have as many extra cards as they want. Include a 
line in that routine to add 1 to his Bet (B()) and take 1 from 
his pile of chips (C()). 

You cannot, of course, ask the 99 if it wants another card. 
It must work that out for itself. To do this we will need a 
routine that will work out the values of hands. Write it as a 
subroutine, as it will also be wanted in the later stage where 
the hands are assessed to see who wins. At that stage the 
hands will be run through a loop (FOR T=l TO PN-1), so 
send the 99's hand off using the same variables. 

T=PN 

GOSUB (totalling) 

This sub-routine is here numbered from 7000, but it could be 
anywhere. The 99 works through the hand, picking out the 
card value characters, and ignoring the suits. The ASCII code 
of those characters is then converted into numbers between 2 
and 11. All "Picture Cards" count 10, all Aces count 11. 

7000 FOR L=2 TO LEN(H$(T)) STEP 2 

7010 V$=SEG$(H$(T),L,1) 

7020 V=ASC(V$)-48 

7030 IF V<9 THEN 7080 (cards 2 to 9) 

7040 IF (V=70)+(V=77) THEN 7070 (Aces) 

7050 V=1 (all picture cards) 

7060 GOTO 7080 

7070 V=11 

7080 HV(T)=HV(T)+V 

7090 NEXT L 

Suppose the hand consisted of the 3 of diamonds, the Ace of 
spades and the queen of clubs. H$( )= " ♦ 3 ♦ A ♦ Q " 
Going through this in steps of 2, line 7010 will pick up 3, A 
and Q. Watch what happens to each. First the 3, ASCII code 
51, line 7020 gives V a value of 3. This is less than 9, so the 
program jumps to line 7080. The total Hand Value is, so far, 
3. Next the Ace. It's a black Ace, so its ASCII code is 125; line 
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7020 gives 77 (125-48). This is more than 9, and the program 
runs past 7030 to 7040. From there it jumps to 7070, and V is 
reset to 11. Total Hand Value now 14. Lastly the Queen, 
ASCII code 123 (black) .Tts initial Value of 75 takes it past 
7030 and 7040, and the Value is changed to the 10. The 
program then jumps to the totalling line, and the player 
finds he is bust, 24 is no good. 

Check that HV (the Hand Value) is set to before going to 
the routine. If you are mathematically inclined, you can work 
out the percentage chances of different values of cards 
cropping up next, given what has already been visibly dealt. 
This can form the basis of the 99' s. decision to take another 
card or not. If you are not so inclined, then follow the flow- 
chart. It is a reasonable bet that the next card will have a value 
of 7 or less. (Halve the time you will be right). So, if the 99's 
total is less than 14, send the program off to deal it another. 

At the final stage, "Work out Winner", you must first 
check that a player's hand is not over the limit. Next see if it 
has a total of 21. If so, then declare him the winner, and 
increase his pile of chips by the value of the KiTty. (KT). 
Otherwise, compare his hand with the Best Hand (BH) so 
far. 

BH is set to at the start of this routine. By the time the 
program reaches the Best Hand lines, it has already checked 
that the hand is not "bust", and not worth 21. You simply 
check that it is better than the previous best. 

IF HV(T) < BH THEN (jump next 2 lines) 

BH = HV(T) 
WN = T 

BH now has the Best Hand Value, and WN has the Winner's 
Number. WN should be set to the same as PN (the 
computer's number) beforehand, so that if there are no 
winners, then the computer collects the kitty. 

Note that before a second game can be played, you need to 
reset several of the arrays, and the Kitty, and that the Pack 
will need to be re-organized and shuffled again. 

Plan out a rough screen display before you start to put the 
program together, and work to that until you are satisfied 
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that all the routines are in and running properly. Come back 
to the display at that stage, and improve your layouts. That 
is also the time to alter routines if the program does not run 
the game the way you are used to it. You may, for a start, 
want to allow Aces to count High or Low. For the players' 
hands, this simply means adding a routine to ask the player 
what he wants to do about his Ace. For the 99 you will need 
add some lines in the "Extra Card" routine. At the simplest, 
you could check, after the extra card, whether or not the 99' s 
hand was over the limit. If so, does it contain an Ace? If it 
does, knock 10 off the hand value, and check to see if it is 
worth having another extra card. 

Pokerdice 

This game combines technique from "Dice and Board 
Games" and from "Cards". Its flowchart is shown in 
figure 32. 

Pokerdice, in case you have never come across the game, 
works like this. The "dice" used in the game have symbols 
on, to represent high value cards, 9 to Ace. 5 dice are used. 
The player rolls all the dice at first, and can then for two 
more turns, select which ones he wants to roll again. The 
object of the game is to build up "poker hands". 3 of a kind 
are worth more than a pair, 4 of a kind more than three. A 
"flush" - a set of cards in series, 9, 10, Jack, Queen, King - is 
worth more than 4 of a kind, but less than 5. The best hand 
you can collect is 5 Aces - which is possible in Pokerdice, 
though not in real poker (unless you are an awful cheat). 

Let's work through that flowchart. You will need your 
graphics for the 6 faces of the dice. At first though, you could 
simply use numbers 1 to 6, then add your fancy graphics 
later. As with ordinary dice, these can be single characters, 
or formed out of several characters. Include a page of 
instructions and rules of the game if the program is likely to 
be used by people who don't know it. 

Several arrays are used in the game, but only one will need 
dimensioning at the start. D(2,5) will hold the 5 dice 
numbers of the player and the computer -'this version is for 
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( START ) 



DEFINE 
GRAPHICS 



RULES OF THE 
GAME - IF 
NEEDED 



SET UP ARRAYS 
AND VARIABLES 



Who ^\99 
starts? 



PLAYER'S GO 






PLAYER'S BET 






VALUATION 






1 99'S 


BET 1 






99'S 


GO 



I 9yS BET I 
I PLAYEiyS BET | 
PLAYER'S 60 | 



Who Wins? 
PAY OFF BETS 




one human only, but could be simply adapted for several 
players. The other arrays and variables will become clearer as 
you work out the program, only one need be mentioned 
here. S will indicate who Starts. Set to H-1 initially this lets 
the player start. At the end of the round it is multiplied by 
-1. The effect is to make it +1 and -1 in tums. 
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The Player's go is shown in more detail in figure 33. 

PLAYER'S GO 

i 



1 



ROLL 5 


; DICE 










HOW 


MANY 


TO ROLL AGAIN? 






WHICH 


ONES? 






ROLL 


DICE 




Figure 33 



"RolHng' 
dice 



This routine will "roll" and display 5 dice. The dice are 
here single characters with codes from 128 upwards. The 
Player number (P) is 1 for the human, 2 for the 99. 

3000 FOR T= 1 T0 5 

3010 FOR N= 1 TO 6 

3020 CALL HCHAR(20,T*3,127+N) 

3030 NEXT N 

3040 D(P,T)= INT(RND*6)+1 (the way it lands) 

3050 CALL HCHAR(20,T*3,127+D(P,T)) 

3060 NEXT T 

Lines 3010 to 3030 "spin" the dice on screen. You might like 
to add a CALL SOUND(. .) line in there to slow things 
down. The CALL HCHAR(. . lines used here will print the 
dice characters at Row 20, spaced out in 3's, from 20,3 to 
20,15. Adjust these to suit your own display. 
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You can tackle the "Which ones do you want to re-roll?" 
section in various ways. Here's one. This assumes that the 
dice have some kind of reference number shown on the 
screen, as in the example display in figure 34. 



BONUSES 

5 OF A KIND 

FLUSH 

4 OF A KIND 
FULL HOUSE 
3 OF A KIND 
PAIR 



150 
120 
90 
60 
30 
10 



MONEY 

your cash 
Ny cash 

YOUR BEt 
MY BET 



£100 
£100 
£5 
£10 



YOUR HAND VALUE 34 



MY GO 



1 

Id 



DICE NUMBERS 
2 3 4 

J 10 9 



ROLLING MY DICE AGAIN 



Figure 34 



1500 FOR f= 1 TO 2 (you can roll again twice) 

1510 INPUT "HOW MANY TO ROLL AGAIN?":M 

1520 FOR N=1 TO M 

1530 INPUT "NUMBER ? ONE AT A TIME, 

PLEASE": RR(N) 

1540 NEXT N 

1550 FOR N=1 TO M 

1560 D(P,RR(N))=INT(RND*6)+1 

(rolling display) 

1600 NEXT N 
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The numbers of the dice to be Re-Rolled are collected in the 
RR() array in the following manner. Suppose the player has 
had his first roll and is faced with this set of dice: 

Dice Number 1 2 3 4 5 
Face Value A 9 J A Q 

The player wants to keep the 2 Aces and roll the rest. He tells 
the 99 he wants to roll three, then enters the numbers 2,3 
and 5. When the 99 reaches the routine starting at 1550 it 
finds that RR(1) =2; RR(2)= 3 and RR(3)= 5. Those dice are 
rolled. 

99^8 GO 



ROLL 5 DICE 



SORT AND VALUE 
HAND- MARK OFF 
ANY WORTH KEEPING 



ROLL ANOTHER 
DICE 




Figure 35 L 



Now for the tricky bit. The 99's go. The flowchart for this 
section is shown in figure 35. The dice rolling routines are 
more or less the same as the human's routines, and can be 
left. The hardest part to program is that box marked ''Sort 
and Value hand. Mark off any worth keeping." Look back 
for a moment at figure 34. When humans play poker they are 
able to say, at the end of the game, "3 of a kind beats any 
pair." or similar comments. The 99 can best tell who wins by 
putting number values on the hands - hence the "Bonuses". 



These are worked out so that 3 of a kind will beat any pair, 
and so on up through the combinations. The dice have a Face 
Value going from 1 for a 9 up to 6 for an Ace. The poorest 
hand you could have with 3 of a kind would be 9 9 9 10 J. 
This is worth 8 (1+1+1+2+3) for Face Values, plus the 
Bonus of 30. Total 38. The best hand with a pair in it would 
be A A K Q J. Value 24 (6+6+5+4+3) plus a Bonus of 10. 
Total 34. 

When the program reaches its final stage, and works out 
who has won by totalling the Values and Bonuses of each 
hand, part of the routine is concerned with finding pairs, or 3 
or more of a kind. This is exactly what we want the 99 to do 
when it is "thinking" about which dice it will keep, and 
which it will roll again. It makes sense then to use the same 
routine for both purposes. Figure 36 shows the flowchart for 
the valuation sub-routines. 

The first stage is to sort the dice into order of value. 
A Bubble sort routine is used for this. 

2000 FOR T=1 TO 4 

2010 FOR N=1 TO 4 

2020 IFD(P,N)>=D(P,N+1) THEN 2060 

2030 TS= D(P,N) (Temporary Store) 

2040 D(P,N)=D(P,N+1) 

2050 D(P,N+1)=TS 

2060 NEXT N 

2070 NEXT T 

You will notice that the expression in line 2020 is "more than 
or equal to". There is no point in swopping a pair that are the 
same. 

We can now start to work out the value of the hand. Face 
Values first. 

2080 V ( P ) =0 (reset the Value to at the start of the 



routine) 



2090 
2100 
2110 



FOR T=1 TO 5 
V(P)=V(P)+D(P,T) 
NEXT T 
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from main program 



SORT INI 


rO ORDER 






FACE VALL 


IE TOTALS 




Figure 36 RETURN — «- | BONUS 



Next, the Bonuses. These are added on to the hand value. 

2120 REM BONUSES 

2130 FOR T=1 TO 4 

2140 IF D(P,T)<>D(P,T+1) THEN 2460 

(not a pair, NEXT T) 

2150 V(P)=V(P)+10 (PairBonus) 

2160 L(T)=1 

2170 L(T+1)=1 



The array L(5) - reset to zero throughout before valuation 
starts - stores the riumbers of any dice which are to be left. 
Look below to see how this fits in with the "Roll again" 
routine. 

2180 IF T=4 THEN 2460 

(jump the rest of the valuation) 
2190 IF D(P,T)<>D(P,T+2) THEN 2430 

(not 3 of a kind) 
2200 V(P)=V(P)+20 (brings total bonus to 30) 
2210 L(T+2)=1 
2220 IF T=3 THEN 2240 

(check for Full House, 3 on 2) 
2230 GOTO 2280 (jump to Full House 2 on 3 check) 
2240 IF D(P,1)=D(P,2) THEN 2260 
2250 RETURN 
2260 V(P)=V(P)+30 
2270 RETURN 

Lines 2240 to 2270 are only used when T= 3. To get there the 
99 must have already discovered that the last 3 dice are the 
same (T,T+l,T+2). It is now checking to see if the first two 
dice also form a pair. If they do then a Full House Bonus is 
given. Otherwise the computer goes back to the main 
routine with the 3 of a kind bonus only. A similar routine is 
needed to check for a Full House where the pair comes after 
the three. 

2280 IF Tol THEN 2350 

(only do this if the first 3 are a set) 
2290 IF D(P,4)=D(P,5) THEN 2310 
2300 GOTO 2350 
2310 V(P)=V(P)+30 
2320 L(4)=1 (mark them off to leave) 
2330 L(5)=1 
2340 RETURN 
2350 IF T>2 THEN 2450 
2360 IF D(P,T)<>D(P,T+3) THEN 2450 

(not 4 of a kind) 
2370 V(P)=V(P)+60 (bonus now 90) 
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2380 
2390 



L(T+3)=1 

IF D(P,1)<>D(P,5) THEN 2450 



(not 5 of a kind) 



2400 V(P)=V(P)+60 (total Bonus 150) 

2410 L(5)=1 

2420 RETURN 

2430 T=T+1 (look back to line 2190) 

2440 GOTO 2460 

2450 T=T+2 (see line 2360) 

2460 NEXT T 

This is all a bit complicated, so let's run a few examples 
through to see how it works. The first hand started out as 
A9J9Q. 

After sorting it looked like this - A Q J 9 9. 

On the first three runs through the T loop, 
D(P,T)< >D(P,T+1), and the program jumps to 2460 for the 
next T. On the fourth run D(P,4) =D(P,5) and the Bonus of 
10 is given. Those last two are marked off to save, and the 
program jumps to the end of the loop. 

Here's another hand. After sorting it is like this: 
AKKKIO 

The Kings on dice 2 and 3 are seen as a pair and the 
program goes through lines 2150 onwards. The third King is 
recognized and the 3 of a kind bonus is given by line 2200. At 
this stage T is 2, not 3, so line 2220 is ignored, and the 
program jumps to 2280. This makes it jump on again to 2350 
to check for 4 of a kind. There are not 4, and the next jump 
takes us to line 2450 T=T+2. This is essential. Without it, the 
program would go through the T loop again with T=3, and it 
would there pick up an extra bonus of 10 for the "pair" of 
Kings on dice 3 and 4. 

Think of a few more types of hand and trace their progress 
through the routine. It's the best way to see how it all works. 

There is one more section that needs to be added to this 
valuation routine, though it is not needed by the 99 when it 
is working out which dice to leave, and which to roll. The 
player might decide to collect a flush, rather than so many of 
a kind. Checking for a flush is easy. The dice are already in 



order of value. If they form a flush, then each die will be 
worth 1 more than the next - A K Q J 10. 



2500 F=0 (Flush indicator) 

2510 FOR T=1 TO 4 

2520 IF D(P,T)<>D(P,T+1)+1 THEN 2540 

2530 GOTO 2550 

2540 F=1 

2550 NEXT T 

2560 IF F THEN 2580 

2570 V(P)=V(P)+120 

2580 RETURN 

As long as each die is worth one more than the next, the 
Flush indicator remains set to 0, and the Flush Bonus is given 
in line 2570. 

The 99 Rolls Again. 

The routine which rolls the dice (lines 3000 to 3060) can be 
re-used for the 99's second and third rolls. Slip in a line to 
check the Leave-it array: 

3005 IF L(T)=1 THEN 3060 

If you do this, make sure that you reset L() to throughout 
before you use that routine for normal rolling. 

One last point. How much should the 99 bet? You will see 
on the flowchart that the player's hand is valued before the 
99 makes his bet (player's start). The highest possible value 
any hand can have is 156, 5 Aces. Why not make the 99's bet 
156 - HV(1) the player's hand value. When the 99 rolls and 
bets first, then why not one chip for every point in his hand. 

This is a crude, but effective system. An alternative is to 
insist that the second player must match the first player's bet 
if he wants to stay in the game. In this case, the 99's decision 
to bet, when the player has started, would depend upon the 
player's score. When the 99 starts, he would bet only if his 
score was above a certain minimum - say 50. Work out your 
limits by running the program lots of times and collecting the 
range of scores. Your limit should be set just above average. 
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You now have the essential routines you need to write 
your own Pokerdice program. The line numbering suggested 
here does not have to be followed, of course, but is spaced to 
allow you plenty of room for the lines needed for the display 
and for organizing the 99's and the player's goes. 
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7 

War games 1 -Co-ordinates 



War Games have been around in various forms for many 
hundreds of years, and they include a vast range of different 
types of games. Chess, a stylized battle between two armies, 
is probably the war game that has been with us longest. 
Converting Chess into a computer program is a job of 
enormous complexity, and not a subject for a book like this. 
You can get some idea of the complications of a full Chess 
program by looking at the listings of the programs in the 
Chess Learner pack, in this series. There the programs only 
have to handle few pieces at a time, rather than the full set of 
32. They are, however, written in simple TI BASIC, which 
means that you can list them, and they have been REM'd to 
help you follow what is happening. Full Chess games, like 
the TI Video Chess (on Solid State Module) are written in 
machine code. This makes them much faster, and able to 
handle information and calculations much quicker. The 
Video Chess also uses Sprite graphics for an improved 
presentation. 

Military planners use computers in their War games in 
many different ways, but mainly as "number-crunchers". If 
you need to work out how many bombers will reach their 
target, you have to calculate the effect of anti-aircraft 
defences, enemy fighter squadrons, engine failure, and 
many other factors. Many of these cannot be determined 
exactly, but you can work within a range of possibility. The 
anti-aircraft defences might take out between 20% and 40% 
of your bombers, but less if you follow a different flight path. 
In that event, the fighter opposition will also be different. 
The computer can run through all the many combinations of 
possibilities in a fraction of the time it would take to work out 
with calculators. It can also throw in a random element to 
allow for human error or breakdown of equipment. When 
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the computer has done its job, the planners will have some 
idea of the likely outcome of a battle, and also of some of the 
ways in which they can improve their performance. 

The computer is also used in the design of new pieces of 
equipment. What balance of speed, armour, gun-size and 
range produce the best tank? The effect of different 
combinations in conflict with enemy tanks of various types 
can be simulated on the computer. After many hundreds, or 
perhaps thousands, of simulations, the planners will have a 
better idea of how to design their new machine. 

"All very interesting," you might be saying, "but what has 
this got to do with war games on my 99?" The answer is, "it 
depends how seriously you take your gaming." If you are a 
real enthusiast, the sort that plays games on hexagonal 
boards, with thick reference books to give you the outcome 
of engagements between two units, with speed, range, 
firepower, damage status and a random factor all built in, 
then you will want a different sort of game from the person 
whose usual limit is Battleships. For the enthusiast, the best 
use of the 99 is as a number-cruncher. Turn your 99 into the 
reference manual, and play the game on the usual board 
with your fellow enthusiasts. The 99 can store details of the 
effectiveness of the players' units, and work out the result of 
engagements, weighting the results according to fire power, 
relative strength, defensive advantages, ground conditions 
and the usual random factors. If you are this type of 
war-gamer, then you will know the sort of calculations you 
normally have to work out. Converting them to a suitable 
program may be tedious to do, but will make gaming far 
simpler and quicker in future. 

What we are trying to do here, is to turn the 99 into a 
worthy opponent. That is difficult enough in itself, without 
trying to make the game realistic as well! We will look at two 
games in detail - COMMANDO, one of the cassette 
programs, and Battleships: As war games go, COMMANDO 
is rather one-sided. The 99's role is always defensive, with 
the tactics of his soldiers being to keep on the watch and on 
the move. The complexities of that program are mainly in 
handling the multiple moves. What should make the game 
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interesting for the player is the difficulty of predicting future 
situations and planning to meet them. In Battleships, the 99 
should play the game in the same way as a human. 

As with any program, a war game program should start 
life on paper. If you are converting a board game, then the 
programming starts on the board. Play through the game 
until you know its moves by heart, until you can see its 
typical situations in your mind's eye. Keep the game by you 
while you are developing the program, and refer back to it 
frequently. What is the aim of the game? What is the player 
trying to do? How does a player try to achieve those aims? Is 
the game played in exactly the same way all the time, or does 
it go through different stages? 

Let's have a look at Battleships. This game, in case you 
have never seen it, is played on two grids, usually 10 by 10. 
Each grid represents an area of sea, in which each player has 
hidden a number of ships. The object of the game is to "fire" 
into each other's grids, by giving the co-ordinates of squares, 
and to "sink" your opponent's ships, before he sinks yours. 
Most players start by shooting at random until they hit one 
of the enemy ships. These ships may occupy anything from 
one to 4 squares each. To sink a 3-square ship, you have to 
hit each of the 3 squares. Once you have found a hit, 
therefore, you will normally shoot around it until you hit it 
again, and so on until it is sunk. You can teach the 99 to do 
exactly that. 



The outline flowchart for a Battleships program is shown in 
figure 37; the board for the game, in figure 38. You will see 
that the grid has been divided off into 10 squares by 10, using 
thin lines. The 99 has, of course, no high-resolution 
graphics, so that you cannot actually draw thin lines. 
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BATTLESHIPS 



SCREEN 
DISPLAY 



POSITION OF 
PLAYER'S 
PIECES 



POSITION OF 
99'S PIECES 



PLAYER'S SHOT 



RESULT? 
MARK HITS 



Yes 




TACTICAL 
SHOOTING 



RANDOM 
SHOT 


V 












RESULT? 
MARK HITS 






Yes 



C END OF GAME ) 



Figure 37 



73 











..- 








' 








.■ 




r> 








1 




















1 


1 ■' 




















2 






















2 






















3 






















3 




















— 


4 




















— Jr- 


4 






















5 






















5 






















u 






















5 






















7 
























. ' ~. 


















C'l^ . ■. 


8 




















m 


8 




















■ 


9 




















M 


9 




















— 1^7. ■ 













































I 




































■ '^l 















1234567890 1234567890 
Figure 38 

You can, however, create your own "grid" graphics. This is 
done on the COMMANDO program. The line: 

CALL CHAR(128,"01000100010001AA'O 

produces this character. 
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Put lots of those together and you have a grid. An outside 
edge of solid blocks completes the picture. The two grids can 
be drawn using just a few HCHAR and VCHAR commands. 

In the version of the game we are using here, each player 
has 10 ships. 



1 Battleship 

2 Cruisers 

3 Destroyers 

4 Patrol Boats 



B 


B B _b] 




C 


C C [T 


c|c| 


D 


D |D|D 


|D|D 


M 


M 


n » 



The simplest way to collect the information about the 
position of the player's pieces, is to ask him to enter them, 
one square at a time. The ships are then marked on the screen. 
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This routine would mark on the 2 Cruisers. 



FOR T=1 TO 2 

PRINT "CRUISER '';T 

FOR N=1 TO 3 

PRINT "SQUARE ";N 

INPUT "ROW NUMBER ? '':R 

INPUT "COLUMN NUMBER ?":C 
(The numbers added to R and C push the grid down and 
away from the corner. X is the code of whatever graphic 

you are using) 

CALL HCHAR(R+2,C+5,X) 
NEXT N 
NEXT T 

If you are likely to be dealing with awkward players, then 
you will need to write extra checks into this to make sure that 
the Row and Column numbers are within the range for the 
game, and also that the squares that make up a ship are in 
line. 

The 99 will position its ships at random. In some versions 
of the game, diagonal placing are allowed - indeed, there is 
nothing here to stop the player from putting his ships 
diagonally - but for simplicity, the 99 will stick to either 
horizontal or vertical placings. This routine works out the 
position for the battleship. It is not, however, marked on the 
screen - that would ruin the game wouldn't it. Instead, the 
ship's position is marked in an array. 

IF RND>.5 THEN (jump next 6 lines) 

R=INT(RND*10)+1 
C=INT(RND*7)+1 
FOR N=0 TO 3 
B$(R,C+N)="B" 
NEXT N 

GOTO (next ship's routine) 

This finds a startpoint for the Battleship on any row, 
between columns 1 and 7, and marks of that square, and the 
next 3 horizontally after it. A similar routine produces a 
vertical positioning. 
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R=INT(RND*7)+1 
C=INT(RND*10)+1 
FOR N=0 TO 3 
B$(R+N,C)="B" 
NEXT N 

Variations on this routine can be used to dot the rest of the 
ships about the board. Later routines must, however, 
include lines to make sure that the ships don't crash into 
each other. Write in a line, just before the point where the 
array is marked, to check that the array is empty at that 
point. If it is not, then the 99 must go back and try another 
pair of co-ordinates. 



The Player's Shot 

Unless you are working in Tl EXTENDED BASIC, with its 
ACCEPT AT command, you are going to have to collect the 
co-ordinates for the players' shot through CALL KEY lines. 
There is a minor problem here. On a 10 by 10 grid, you are 
faced with a 2-digit number - 10. there are several ways to 
deal with this. You can identify the last Row and Column 
with a 0, then write an adjusting line into the routine. These 
lines collect the Row number: 

CALL KEY(3,K,S) 

IF S=0 THEN (wait for a contact) 

R=K— 48 (turns ASCII code into number) 

IF R>0 THEN (jump next line) 

R=R+10 (turns into 10) 

You can create an imitation input: 

1000 CALLKEY(3,K,S) 
1010 IF S=0 THEN 1000 
1020 IF K=13 THEN 1060 

(ENTER has been pressed) 
1030 IF (K<48)+(K>57) THEN 1000 

(accept numbers only) 
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1040 R$=R$ & CHR$(K) 
1050 GOTO 1000 
1060 R= VAL(R$) 

R$ - set to before this routine starts - collects the numbers 
entered in the CALL KEY line. The routine could be used to 
collect numbers of any size, though here you are only 
concerned with two digits. You would need to add a further 
check line to prevent any number larger than 10 slipping 
through. (See the imitation input in the AIRSHIP program.) 

There are two simpler solutions to this problem. Identify 
your grid with letters rather than numbers, or use a 9 by 9 
grid. 

However you decide to tackle it, you must finish up with 
the Row and Column co-ordinates of the player's shot. This 
can then be compared with the array that represents the 99' s 
sea. The squares there will be empty except for those marked 
with "B","C","D" or "P" for the different ships. The 
presence of any letter will mean a hit, and this should be 
reported back to the player - perhaps by flashing that square 
on the screen, and marking on an "H". You also need to 
show whether the ship is sunk or not. With the Patrol Boats, 
there is no problem, because one hit sinks. With the larger 
ships you need some means of counting how many hits have 
been scored on each ship. 

As always, there are several possible solutions, some 
better than others. One way would be to collect the letter 
from the hit square into a Hit string. 

H$= H$ & B$(R,C) 

After the first Hit on a battleship, H$="B". After 4 hits, 
H$"BBBB". The hit string could be compared with the 
possible ship strings after each hit. 

IF H$="BBBB" THEN 

IF H$="CCC" THEN 

IF H$="DD" 

When the hit string and a ship string match, a "Sunk" report 
is given, and H$ is emptied ready for the next time. 
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This routine will work perfectly well for most of the time. 
Every now and then, however, you will have a situation 
where two ships are next to each other, and the first hit is on 
one ship, and the second on the other. The routine cannot 
cope with this. 

You can improve it by using a POS comparison, rather 
than a simple "=". 

IF POS (H$ ,"8688", 1) THEN 

Now it will pick up the presence of a sinking within a more 
complex sequence of hits. 

You will then need a clever bit of string slicing to remove 
the sunken ship from the hit string. 



The 99's Shot 

Random shooting is easy. 

R=INT(RND*10)+1 
C=INT(RND*10)+1 
IFS$(R,C)<>"" THEN 



(tried that already, 
new RND numbers) 



S$ is the array where the 99 remembers what is happening 
on the player's Sea. To tell the player where the 99 is 
shooting, the program can either display the Row and 
Column numbers using a Print anywhere routine, or it could 
flash the shot on the screen. The routine below finds the 
character in that square on the player's grid, and prints that 
and an asterisk alternatively until the player responds with a 
Miss, Hit or Sunk report. 

CALL GCHAR(R,C,Z) 

CALL HCHAR(R,C,42) (print asterisk) 

CALL S0UND(50, 500,1) (beep) 

CALLKEY(3,K,S) 

IF SoO THEN (jump out of loop) 

CALL HCHAR(R,C,Z) (print original character) 
CALL S0UND(50, 500,1) (beep again) 
GOTO (print asterisk line) 
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If the 99 scores a Hit, then it will want to try some tactical 
shooting next time round. Transfer the co-ordinates of the 
square to a store, and activate a hit marker. 

HR=R 
HC=C 

HM=1 (Hit Marker) 



Tactical Shooting 

Finding a two-square ship is easy. All you have to do is fire 
away at the squares around the original hit. If the hit was on 
Row 5, then the second square must be on Row 4,5 or 6. You 
need to add —1,0 or -f 1 to the Hit Row. 



-1 +1 











HR, 
HC 











4 5 6 

Figure 39 



R=HR+INT(RND*3)-1 

A similar line gives you the Column number. 

Check that your new R and C numbers are within the 
range of the array, and check the array to make sure that the 
square has not been tried already. This will find a second hit 
just as well as any human could do it. 



3 


4 


5 


6 


7 

































'the player's cruiser 



Figure 40 



2nd hit 
(R,C) 



1sthit(HR,HC) 



Ships of 3 or 4 squares present different problems, and 
require different solutions. Look at figure 40. The first hit 
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was on square 8,5. The second on square 8,4. A human 
player can see immediately that the rest of the ship must be 
on 8,3 or on 8,6. If you leave the 99 with routines given so 
far, and no more, then it would now start potting away 
around 8,4 - and never find anything. Skip the rest of this 
section if you want to give the human the advantage in this 
game. 

Send the program off to this routine when the 99 scores a 
second hit. 

DR=HR-R 
DC=HC-C 
HM=2 

DR is the Difference between the two row numbers. In figure 
40, the difference is zero. DC (the Difference in Column 
numbers) would here be 1. 

Next time the 99 has a shot, the Hit Marker will send it off 
to a new tactical shooting routine. 

R=HR+DR 
C=HC+DC 

In the example given, R would be 8, and C would be 6. Bull's 
eye! 

However, if the third square of the Cruiser had been 8,3, 
and not 8,6, the 99 would have missed. To cope with this 
situation, you will need to move the Hit Marker on one 
more, and try another tactical shot next time. Here it is: 

R=HR-2*DR 
C=HC-2*DC 

This produces the numbers R=8 and C=3. Bang on, at last. 

It's all very fiddly, but such is the nature of computer 
games. However, that extra effort has produced a program 
that plays like a human. You will need a further variation on 
these routines to handle the 4-square ship. 

Add in simple counters to keep track of the scores, check 
lines to cover those "All Sunk?" diamonds on the flowchart, 
and some good sound effects, and your Battleships program 
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is more or less complete. The next section is included for 
interest only, and should not be used in your program. 

The Intelligent Computer 

"Intelligence" here means the same as it does in the 
expression "Military Intelligence". "Spying" is a more 
accurate name for it. There is nothing to stop the 99 from 
using the CALL GCHAR routine to find the player's ships. 
Nothing, that is, except the honesty of you, the programmer, 
and the fact that if it's too good a player, humans might get 
suspicious. Used with discretion, the occasional check ahead 
to see if a random shot is worth doing, or a quick scan across 
a line to see if anything is there, would scarcely be noticed. 
You could include a check line (if N$ = "HONEST SID" 
THEN. . .) to make it jump its cheating routine when playing 
you. It is, however, a well-known fact that 99 owners are 
extremely honest, and there is therefore no point in going 
into this any further. 
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8 

War games 2 - Movement 

A simplified flowchart for the COMMANDO game is shown 
in figure 41. Much of the programming is quite obvious - see 
the LIST in the Appendix - but it is probably worth looking a 
little more closely at the way in which the player's and the 
99's moves are handled. 



The Player's Moves 

Several arrays are used in this game, and they are all brought 
into play at some point during the player's go. The key ones 
are B$(18,16) which maps the Board, U(3,2) which holds Row 
and Column numbers for the 3 Units (the player's pieces), 
and 0(3,6) which can hold up to 6 Orders for the 3 Units. 
The orders are collected by the routine between 1200 and 
1490. (See the LIST). You will notice that the first thing to do 
is to check that the Unit is still available. 

1220 IF U(T,1)=0 THEN 

(jump to next Unit) 

The removal of a Unit is flagged by changing its Row number 
to 0. The orders are given in letter codes, and these are 
changed to simple numbers for storage in the Order array. 

1340 CALL KEY(3,K,S) 

1350 IF S=0 THEN 1340 

1360 IF (K<65)+(K>75) THEN 1330 

(beep and try again) 

1370 0(T,N)=K-64 

The orders are carried out by the next section, 1500-1900. 
The line: 

1560 ON 0(T,N) GOTO 
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COMMANDO 



START 



GRAPHICS 
DEFINITION 



GAME CHOICE. 
TARGET, 
NUMBER OF MOVES 



INSTRUCTIONS 



SET UP TARGET 
& 

POSITION PIECES 



PRINT SCREEN 



PLAYER'S GO- 
COLLECT ORDERS 



MOVES 
PLAYER'S MOVES 
99'S MOVES 





C 



PLAYER'S MOVES 



WHAT SORT? 
TYPES 1 10 




MOVE 



FIRE 



BOMB 



10, NO MOVE 



Yes 


PRINT 
RESULT/ 
SCORES 


> — > — 









STOP 



Figure 41 



sends the program off to the appropriate routine. Where the 
order is to change position, then lines like this: 

1570 U(T,2)=U(T,2)-1-B$(U(T,1),U(T,2)-1) 
<>CHR$(144)) 

will make the move, but cancel it again automatically if the 
square to be moved to is not a space. (CHR$(144) is the grid 
character). 
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Firing is managed through a sub-routine, but before going 
there, the Direction of fire has to be given. 

1670 D=4 

1680 GOSUB 3000 

This Direction variable must be either 1,2,3 or 4. It would be 
possible to allow your fighters to fire diagonally as well. 
Possible, but more complicated. 

1 (R-1) 

\ 

(C-1) 4< D ^2 (C+1) 

1 

3 (R + 1) 

Figure 42 

The firing sub-routine is used for both the player's Units and 
the 99's Guards. The Unit's (or the Guard's) co-ordinates are 
transferred to simple R and C variables, at the bullet's start 
point. The bullet will then travel for up to 6 squares in the 
direction given by D. 

3100 FOR S=1 TO 6 

3110 R=R+ ( D= 1 ) - ( D=3 ) (up or down) 

3120 C=C+ ( D=4 ) - ( D=2 ) (left or right) 

There are a number of check lines that send the program off 
different ways according to what is on the square that the 
bullet is about to go through. If it's a space, then carry on 
(line 3130). A building, or the screen edge, will stop the 
bullet (3140). If it's a Unit, we must find out which Unit and 
knock it out. (Line 3150 and the routine from 3160 to 3270). 
Likewise, a Guard must be identified and removed. (3280 
and the sub-routine from 4500 onwards.) In both cases, the 
bullet's Row and Column numbers are compared with those 
of each of the Units (or Guards). If they are the same, then 
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that square is flashed to show the hit; the same point in the 
array is made into a blank, and the Unit's (or Guard's) Row 
number is changed to 0, to indicate its removal from the 
board. 

Bombs are handled through another array, B(10,3). This 
stores the co-ordinates and a timer for each of 10 bombs. 
When a bomb has been planted, a Bomb Signal (BS) is 
switched on. This tells the program to go to the "Explosion?" 
sub-routine each time it goes through the main order loop. 

1840 IF BS=0 THEN 1900 
1850 GOSUB 4000 

At this sub-routine, the 99 adds onto the "timer" of each 
bomb that has been planted, and if the timer has reached a 
certain point, it jumps to an explosion routine. 

4000 FOR Z=1 TO 10 

4010 IF B(Z,1)=0 THEN 4410 

(bomb not planted, or exploded already) 
4020 B(Z,3)=B(Z,3)+1 
4030 IF B(Z,3)<18 THEN 4410 

(don't explode yet) 

Part way through the game, the Bomb array might look like 
this: 



l(Row) 2 (Column) 3 (Timer) 



1 





4 


18 


Was at 6,4- Now 
exploded. 


2 


7 


12 


17 


At 7,12, about to 
blow. 


3 


10 


4 


8 


At 10,4. Timer nearly 
half-way. 


4 











Not yet set 


5 











Not yet set. 



The 99's Moves 



These are handled by the lines from 1910 to 2300. These 
Guards are supposed to be on sentry duty, so their main task 
is to keep their eyes open for intruders. Fortunately for the 
player, they don't always do that. A line is written in so that 
some of the time their eyes are shut. 

1940 IF RND>.7 THEN 2300 

This random limit can be changed to make the game easier or 
harder, as you like. The search routine is run through two 
loops, covering all 10 guards (the T loop) and the 3 Units (the 
Z loop). Here's the section that checks to see if there is a Unit 
on the same column as a Guard, and if it is in range: 

1960 IF G(T,2)<>U(Z,2) THEN 2020 

(not on same Column check the Row next) 
1970 IF ABS(G(T,1)-U(Z,1))>6 THEN 2100 

(out of range) 

1980 D=1 (shoot up) 

1990 IF G(T,1)>U(Z,1) THEN 2080 

(go to firing routine) 

2000 D=3 

2010 GOTO 2080 

The first two lines have checked that a target is there 
somewhere, the question is, "is it above or below the 
Guard?" This is checked by line 1990. If the Unit is upscreen, 
then the Direction variable is left at 1, and the 99 goes to the 
firing sub-routine. If the Unit is downscreen, then the 
Direction variable needs to be reset before firing. 

Having had their look around, and perhaps fired at an 
intruder, the Guards now continue their sentry duty and 
march on. The direction in which each is to move has been 
fixed, at random, at the start of the program. It is held in the 
3rd store in the Guards' array. The Guards will march in 
their allotted direction until they bump up against 
something. (See lines 2130 to 2260). If they can go no further, 
then they will turn. 
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2270 G(T,3)=G(T,3)+1 

2280 G(T,3)=G(T,3) + (4*(G(T,3)>4)) 

(keep D in range 1^) 

This produces a quarter turn clockwise. The amount of turn 
could be randomised instead, to make their movements less 
predictable. 

At the moment, if a Guard find a Unit on the same Row (or 
Column), but out of range, it will simply ignore it. This could 
be altered to make the Guards more menacing. Write in a 
routine to make the Guard move closer to the Unit, rather 
than following its normal patrol route. The Guards could 
also be allowed to pass through buildings, if you felt they 
needed any extra advantages. 

The 99 in this game is a good tactical player - it can always 
make a sensible move, but it has no real strategy - it does not 
plan ahead. For examples of strategic play, you could look at 
the listings of the programs in the Chess Pack in this series. 
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9 

Simulations 



The object of a simulation program is to get the computer to 
produce a copy of the real world, or at least, of one small part 
of it. A good simulation will present you with the same 
problems that you would get in reality. Flight simulators are 
much used in the training of civil and military aircraft pilots. 
It costs millions to crash a Jumbo Jet, but nothing to "crash" 
a computer program! War games are simulations so are 
business games. Simulation programs are also used in 
scientific research, economic planning and weather 
forecasting. The key point to bear in mind about a simulation 
program is that it will only be as good as you knowledge of 
the subject - which might explain why AIRSHIP will be of 
little value in training airship crew! 

AIRSHIP could be made into an effective simulation, given 
a fuller understanding of the various factors at work and 
sufficient memory space. The wind is purely random at the 
moment. It should correspond to likely weather conditions 
in this part of Europe. It should also vary with height, and 
the safe flying height should also vary according to 
whereabouts on the map you are supposed to be. To do this, 
you would have to build a 3-dimensional map into the 
program, and check the airship's position on there as it flies. 

These would be significant improvements, but the major 
change that the program needs is the inclusion of a "real- 
time" element. AIRSHIP works in set units of time. You give 
your orders for the next hour, and that's it. It doesn't matter, 
either, how long it takes you to work out those orders - the 
airship will hang suspended, and unmoving, until you are 
ready. To make this change you would need to be able to 
alter speed, height and bearing at any time, through the 
keyboard. This is not really feasible in TI BASIC. The 
program would have to run continuously round a loop that 
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recalculates and displays all the speed, bearing and distance 
information, passing through CALL KEY lines, but not 
stopping there. (See figure 43). 

The calculations are done rapidly, but the display of the 
variables takes time when you have to use an HCHAR - 
Print anywhere - routine. As a rough guide, calculations of 
the type "AX= SIN(AB*.017)*AS" (line 1610) are performed 
at the rate of about 9 a second. Displayed with a normal 
PRINT command, the rate is around 5 a second. Put that 
display through the "Print Anywhere" routine, and you are 
down to 3 a second. The AIRSHIP program has 12 variables 
that need continual updating and display. To ask your user 
to catch the one brief moment of a CALL KEY line in a 
4 second loop, is to ask too much. Working in TI EXTENDED 
BASIC, with its DISPLAY AT command, and faster working, 
you would be able to reduce the loop time to a little over 
1 second. You could reduce it further by cutting down on the 
display - but is it worth it? 



CALL KEY 




ORDERS? 



No 



CALCULATIONS 



DISPLAY 



Yes 




CHANGE 
VARIABLE 
AS ORDERED 



Figure 43 
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If you want to produce a reasonable spaceflight, or jet 
flight simulation, you are going to have to transfer to 
machine code to get the necessary speed. 

Meanwhile, let's have a closer look at the AIRSHIP 
program, as it shows the use of some of the 99's 
trigonometry functions, SIN, COS and ATN. 



airship (20 kph) 



wind 
(10 kph) 



Figure 44 



As you probably saw on the demonstration early in the 
program, if the airship is flying due East at 20 kph, and the 
wind is blowing due South at 10 kph, then you actually 
travel East South East at about 22 kph. (See figure 44). With 
simple speed figures, and the wind and the ship's direction 
at right angles to each other, this is fairly obvious. We can 
calculate the actual speed by using Pythagorus's theorem - 
"The square on the hypothenuse is equal to the sum of the 
squares on the other two sides." 



airspeed 




wind speed 



Figure 45 

"Ground Speed^ = Airspeed^ + Windspeed^ 
That translates to this equation: 
GS = SQR(AS*AS + WS*WS) 
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In fact, you won't find the equation in the program in quite 
this form. Line 2130 

D=INT(SQR(X*X+Y*Y)) 

Is a generalized form of the equation, which is used for 
several different calculations of the same type. 



To find the bearing, we use the Arctangent function 
(ATN). This lets us work out an angle if we know the 
opposite and adjacent sides. In figure 46, angle B is the 
Arctangent of the opposite (x) divided by the adjacent (y). Of 
course, if we ask the 99 for the angle, it will give it to us in 
radians. We are trying to work in degrees, like all good 
navigators, so we must multiply by 57.3 to convert radians to 
degrees. (1 circle = 2 it radians = 360 degrees). 

The final line looks like this: 

2380 B= INT(ATN(X/Y)*57.3) 

It is not very accurate. If you refer to your User's Guide, you 
will see that TI recommend that you multiply by 
57.295779513079 to make the conversion. Integerizing 
numbers also plays havoc with your accuracy, but decimals 
make a mess of your screen. 

There's more to this, but let's look back at the "real travel" 
calculations for a moment. Suppose at the start of your flight, 
there was a wind blowing on a bearing of 60° at 30 kph. You 
want to travel on a bearing of 330. Which way should you 
point your ship? (figure 47). You guess that a bearing of 300 



X 



y 




Figure 46 
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Wind 



Figure 47 

degrees and a speed of 100 kph should do the trick. So what 
happens? 

A North 



X 




Figure 48 

First of all, how far EastAA^est and North/South will a wind of 
30 kph on a bearing of 600 degrees blow you? If you were 
working this out on paper, you would draw in the right- 
angled triangle (figure 48) and find the angle A (60°). 

Look what happens when the bearing is over 90 degrees. 
You then find X (East/West) by multiplying SIN A by 30. The 
99 can work out the sines of any angle, so the line 

X=SIN(WB*.017)*WS 
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A North 




A = 60 X 

Figure 49 

gives us the answer, without having to bother to draw 
triangles, or bring the angle down to 90 or less. In this 
example SIN(60^017)*30 is 25.6. You will be blown 25.6 km 
East. The COSINE of the angle lets us work out the North/ 
South (Y) movement. 

Y=C0S(WB*.017)*WS 

Here COS(60*.017)'^30 gives 15.7. That's 15.7 km North. 
Notice in both of the equations we have to include "*.017" to 
convert degrees to radians for the 99. If you want greater 
accuracy, use *.01745329251994. 

We can perform the same calculations on our airship's 
speed and bearing, and find that (in still air) these would 
produce movements of 92.5 km West (X= -92.5) and 37 km 
North. (Y=37). If we combine the two lots of figures, we get 
the movement of the airship, in relation to the ground. 

1650 X=AX + WX (here, -92.5+25.6 = -66.9) 
1660 Y =AY + WY (here, 37+15.7 = 52.7) 

The wind has cancelled some of the westward movement, 
but has increased the total shift to the north. We can now use 
the same calculations we used earlier, to find the total 
diagonal movement and bearing. In this case, we have a 
ground speed of approximately 82 kph, and have flown on a 
bearing of -51 degrees. -51?? That can't be right! 
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It isn't. While the SIN and COS functions will work right 
round the circle, from to 360 degrees, the ATN function 
will always give you a result between and 90, and either 
positive or negative. Look at the equation in simple form: 

B= ATN(X/Y) 

If either X or Y are negative, then the result will be negative. 
If both are positive, or both negative, then the result is 
positive. In the figure below, you can see how this varies 
according to the values of X and Y. In AIRSHIP the 
Arctangents are calculated in the routine from 2320 to 2430. 
Only one line performs the actual calculation, the rest are 
there to allow for all the different possible values that might 
occur. 



-X/+Y= +ATN 



-X/-Y = -ATN 



Figure 50 



+X/+Y = +ATN 



+X/-Y = -ATN 



Dry Running 

If you are a mathematical wizard, then you will be able to get 
equations sorted out correctly first time, and any minor 
typing errors you have made will show up as soon as you 
run the program. If, like the writer, you have only a limited 
grasp of higher mathematics, then "Dry Running" is 
essential. 



94 



Work out your equations as carefully as you can - possibly 
writing little programs to test the effect of various functions. 
Now write them out in program lines, and then take some 
simple figures (ones where you can work out the 
approximate answer on paper, or with a hand calculator) and 
go through your lines with those figures. Will the program 
you have written produce the results you expect? If not - 
back to the drawing board. You should have a better idea of 
where the problem is, if nothing else. 

Test Data 

Having checked your program on paper, type it in and test 
again. Don't use the random function at this stage. Set the 
variables to figures where you know the answer and run 
them through. Does the program give the right answer? Try 
with a variety of figures, ones which you will test all of the 
lines of the routine. 

With something like the arctangent function you would 
want to test all the possible positive/negative combinations - 
comparing your results with paper sketches or calculations. 
It is also worth writing a temporary loop into your program 
so that the same calculations are performed with all but one 
of the factors held constant. Fix the speed and run through 
the bearings from to 360 (in steps of 5 or 10, or you will be 
there all night). 

TRACE in cases of difficulty. It ruins the screen display, 
but at least you can tell if the 99 is going through the program 
lines in the way that you think it should. If you have a 
printer, then you can follow the trace numbers on the print 
out. If not, then you will have to do it the other way. Write 
down the trace sequence for that section that worries you, 
then compare that with the LIST on the screen later. 

Other Simulations 

Why not write your own business simulation? A good one 
need not be complicated, and they can be fun games to play. 
At the simplest, you would have only one product, and you 
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would take only the cost of production and of advertising 
into account. 

Key factors would be how much cash you have to start 
with; how much it costs to produce 1 whatever-it-is; how far 
price affects sales (and profits); the effect and cost of 
advertising. You can refine the program later to bring other 
factors into play. Do you have any competitors, and what are 
they doing? What's happening to the price of raw materials? 
If your product is something like lemonade or ice cream, 
then the weather is important. 

Figure 51 shows, as a diagram and not as a flowchart, the 
interplay of some of the factors in a business game. 




CASH RESERVE 



V 



ADVERTISING 



iz lY 



SALES 



\ 


7 


PROFIT 
OR LOSS 




Figure 51 



This type of game may be best played by several people at 
once, each in competition with the other. 

The best simulations to write are those where you 
understand the subject, and where you can give a 
straightforward number value to each factor. It is very 
difficult to write a good simulation that has to take humans 
into account. 
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Appendix 
RDgram lists 



1DICER/>CE 



10 REM DICERflCE 
20 REM MRCBRIDE 1983 
30 CALL SCREEN <8> 
40 CALL CLEAR 
50 DPTIDN BASE 1 

59 REM h$<:4)= p livers nimes 

60 DIM N$(4) 

69 REM p<4j3>=couniers row? col 
umn and character 

70 DIM P<4»3) 

79 REM d$(6»3)=dice graphics 

80 DIM D$<6j3) 

90 PRINT DICERACE":: 
100 PRINT •• THIS IS A GAME FOR M 
E AND"::" UP TO 3 HUMAN PLAYERS. 

I'lO PRINT ::" DEFINING GRAPHICS" 

::" PLEASE WAIT A MOMENT.":: 

120 FDR N=l TO 7 

130 READ X.GS 

140 CALL CHAR<::«6$> 

150 NEXT N 

159 REM dice and edses 

1 6 DATA 120? 1 S3C7E7E3C 1 8 » 1 2 

1 J FF99A5DBDBA599FFJ 122j 

164 REM counters 

165 DATA 128«C3810000000081C3j 13 
6 . C 3 8 1 8 1 C 3 ? 1 4 4 , C 3 8 1 
08 1 C3 . 1 52 . C38 1 08 1 C3 
170 FOR N=12 TO 16 

180 READ F,E 

190 CALL COLOR <N.F.B> 

200 NEXT N 

210 DATA 2. 16j85 5j8»7»8.3«8» 14 
220 INPUT "HOW MANY PLAYERS 1-3 
?":PN ■ 

225 IF PN>3 THEN 220 

230 FOR N=2 TO PN+1 

240 PRINT "PLAYER NUMBER ";N-1 

250 INPUT "NAME PLEASE ":NX<N> 

259 REM make sure name fits 

260 IF LEN'::N$':N::')<12 THEN 280 

270 m ai> =SEG3; <m <n> , i . 1 1> 

280 NEXT N 

289 REM i m the first Flaver 

290 N$<r;' = "ME" 
295 PN=PN+1 

300 PRINT " PRESS ANY KEY TO STA 
RT " 

310 CALL KEY':3>K»S> 
320 IF S=0 THEN 310 
325 RANDOMIZE 
330 CALL CLEAR 

339 REM the board 

340 FOR R=l TO 22 STEP 3 
350 CALL HCHAR<Rj2>121j30 
360 NEXT R 

370 FDR C=2 TO 32 STEP 3 

380 CALL VCHAR<1jCj121j22) 

390 NEXT C 

400 FDR R=5 TO 13 

410 CALL HCHAR(Rf6»32f23> 

420 NEXT R 

425 REM dice graphics 
429 REM row of blanks 



430 
122> 
439 
440 
122> 
449 
450 
120) 
459 
460 
122) 
469 
470 
120) 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
659 
660 
670 
680 
690 
144 
700 
710 
J 3)) 
720 
729 
730 
740 
750 
760 
770 
779 
780 
790 
799 
800 
840 
CE" 
850 
860 
870 
880 
890 
900 
905 
909 
910 
920 
930 
940 



E$=CHR$ <122> ScCHRS <122) ^icCHR$ < 

REM sPot in centre 
F$=CHR$ < 1 22) ScCHRS < 1 2 0) &CHR3. < 

REM spot on right 
G$=CHR5: < 1 22) &CHR$ <. 1 22) &CHRS < 

REM spot on left 
H$=CHRf. < 1 2 0> tCHPS <. 1 22) 8<CHR$ < 

REM spots both sides 
I $=CHR5: < 1 2 0) «<CHR$ < 1 22) &CHR$ ( 

DSCl J 1)=E3: 
D$(l»2::=F'i 
D$<lj3)=E"i 
DS<2.1)=GS. 
D$<2.2)=Ef. 
D!r.<2«3>=H$ 
DS':3j1)=GS. 
D$<3-.2>=F$ 
D$<3»3)=HS 
D$<45l> = IJ 
D$<4j2)=E:I: 
D$<4.3) = I$ 
D$<55 l) = l:£ 
D$<5»2)=FJ 
D3;<5.3)=I* 
D$<6j 1)=I* 
D$<6.2)=I* 
D$<6» 3)=I3. 

REM start positions 
FOR N=l TO 4 

READ P (N J 1 ) . P <N . 2) > P <N j 3) 
NEXT N 

DATA 21j3j 1£S-.20.4j136j20j3> 
21j4. 152 
FDR N=l TO PN 

CALL HCHAR CP ''N » 1 > » P <N , 2) ? P <.U 
NEXT N 

REM main game loop 
FOR N=l TO FN 
W$=" PLAYER - "S^NSCN) 
R=7 
C=7 

GOSUB 6000 

REM random dice number 
Z=INT(RND^^6)+1 
GOSUB 4500 
REM i don t press 
IF N=l THEN 910 
0J$=" PRESS ANY KEY TD ROLL DI 

R=23 
C=2 

GDSUB 6000 

CALL SOUND<250j550j 1) 
CALL KEY<3jK>S) 
IF S=0 THEN 890 
CALL HCHAR<23j3,32j26) 
REM rolling dice 
FDR Z=l TD 6 
CALL SOUNDdOOf 110*Zj1) 
GOSUB 4500 
NEXT Z 
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•?49 REM fin .J on. dice number 

•?5i:i Z=irJT'PND-:-6-+l 

'?t.i:i GO SUB 4500 

97 n FDR T=l TD Z 

•?S0 CRLL HCHAR ' P - N. 1- < P vHi £ • ' ::£> 

989 REN r i jKt-hdnd iide 

990 IF '.P'rj.£;' £9'" :P'r^ 1 . 4-THE 
N 1040 

999 REM toF 

1000 IF ■ p '.H . 1 4 ' •■ <p 'H ' d ' : 4 • the 

N lObO 

1009 REM lett-hdnd -ide 

1010 IF • P ' fJ. 5 ' - ' P '..th 1 ' £0) TH 
EH lOSO 

1019 REM bottom - ^o r i ?hi 

lOiO P•:n^^^=P'M^^• + < 

102:0 GDTD 1090 

10:;9 REM t iih* - 3 'jf 

1 040 P'fJ. 1 —P'N. 1 

1050 GDTD 1090 

1059 REM tOF - 3 

lOt.O P':H.£)=P(fJ»£>-3 

1070 GOTO 1090 

1079 REM left - -fo do-in 

loso P':n. 1 '=pa^ i '+3 

1 09 CALL HC Hh":' ' P • • 1 ■ . P . i ' . p 
N. 3> ' 

1094 REM .:Ke:^ to 

1095 GOIUB i'OOO 
1100 rJEMT T 
1110 CRLL HCHhR 7- 
1119 REM incident. 
llciO GDJIJF 3000 
1130 NEXT U 

1140 GDTD 730 

1999 REM r eacr.ed end" 

£000 IF ' P vN. 1 19 '-'.P'.N.£ ' 5 ' If 

EfJ £100 

£090 RETURrJ 

£100 l.li.=rJt':rJ':' ■• HR3 I.IDfJ! " 

£110 R=£3 

£1£0 C=5 

£130 GDSUI: i:.000 

£140 m=" RNDTHER GRME ■•■r fJ- " 

£150 R=£4 

£160 C=3 

£170 GOjiJB if-OOO 

£ 1 S CRL L SDUND =: 5 - £5 < 1 ' 

£190 CALL |:EVv3.Ki3> 

££00 IF 3=0 THEN £190 

££30 IF K=39 THEN 300 

££40 IF L 7.3 THEN £130 

££50 CHLL ■CREEN'::3.:' 

££60 CRLL CLERR 

££70 PRirJT TflB(7> ; "PRDGRRM irJDE: 



50£0 R=9-*-T 
5030 C=15 
5040 GDiUB 6000 
5050 NEXT T 
5060 RETURN 

5999 REM "tritin^ tout in 

6000 FDR ri=i TO LEfJ •MJ • 
6010 X=R3C':3EG'i. (Ul'Q. 1 ■ ' 
60£0 CALL HCHRPvR?Q+C?;;;' 
6030 NEXT Q 

6040 RETURN 



end 



t out I ne 



££80 PRINT 

50": : 

££90 PRirJT 
...1£0":: 
£300 PRirJT 
. . .££0": : 
£310 PRINT 
. . .330": : 
£3£0 PRINT 
. . .659": : 
£330 PRINT 

779" : : 
£340 PRINT 
. . .970": : 
£350 PRIfiT 
. .1094": : 
£360 PRINT 
. .4499" 
£370 ErJD 

3000 REM i.iMte . our oi.m 
3 1 REM 1 n c 1 d e n t r- o u 1 1 n e ? 
30£0 REM here. 
3990 RETURN 

4499 REM wiFe out. dice fice 

4500 FDR T=l TO 3 

45 1 CRLL HCHAR (9+T . 1 6 . 1 ££ ^ 3 
45£0 NEXT T 

4999 REM dri'.i nen. dice 

5000 FDR T=l TD 3 
5010 lJt=D$'Z'T:' 



SET UP ARRAYS 

DEFINE GRAPHICS. . . 

COLLECT NAMES 

BDRRD RNIi DICE 

bHME STARTS HERE.. 

DICE ROUTINES 

MDVE-I.IHICH I.IAY ' . . 
END ■ INCIDENT 
DISPLAY ROUTINES.. 



10 REM CRDSiES 
£0 REM MflCBRIDE 1983 
30 CRLL SCREEN (lb> 
40 CALL CLEftR 

50 PRINT Tfll!';l£) ;•■ CROSS E:i:-: : : 
60 PRINT •• ONE MOMENT PLEAS 

E" 

70 RESTORE 5000 
80 GOSUE 5000 
90 PRINT 

100 REM .=iriFhic2 d^: fine. J 

110 REM r«.i. io li^ri 

120 INPUT •■ PRESS ENTER TO STftRT 

. " ! fl$ 

130 OPTION ERSE 1 

135 REM 2crH^ri irr^-. 3x3 

140 DIM S'::3.3> 

145 REM i..Jorkiri3 it r^i. 8x3 

150 DIM l...K8'.3> 

160 CRLL CLEAR 

170 PRINT ME DRAW"! 

TAE';£2>;"Y0U" 

180 PRINT : iTRE'.s::' ; i;tae(14> ;d;t 

AB (££> ; Y 

185 REM t.hi.- .ir^ufi the 
lines of the board 
190 El$=" ••a:CHR:E(l£3)&:" "g.CHRJd 
£8) 

£ B£J =CHRf. ( 1 3 0) &CHRJ < 1 £9> &CHR:B 
a 3 0> S<CHR$ < 1 £9> 8.CHR$ ( 1 3 0> 
£10 PRINT ::::TAE<13>;B1$ 
££0 PRINT TflB<13>;B£$ 
£30 PRINT TRBa3>;Bl$ 
£40 PRINT TRB(13>;B£S 
£50 PRINT TAB(13>;B1$ 
£60 PRINT :::::::: 
£70 FDR R=l TD 3 
£80 FOR C=l TD 3 
£85 REM puts letters on 
board-small caps 
to allow coloring 
£90 CALL HCHRR(9+R*£, 13+C*£,93+3 

300 NEXT C 
310 NEXT R 

3£0 W$="YDUR MOVE - WHICH SQUARE 

?" 

330 R=£0 
340 C=3 

350 GDSUB 6000 

360 CALL SOUND<£50j1397» 1> 

370 CALL KEY<3.KjZ) 

380 IF Z=0 THEN 370 

385 REM input check 

390 IF <K<65> + vK>73>THEN 360 
395 REM convert ASCII code 

to co-ordinates 
400 R=INTC'rK-6£>x'3> 
410 C=K-(61+3-;rR> 
4£0 IF S<R,C>>0 THEN 360 
4£5 CALL HCHRR';£0j4j3£»£6::' 
430 CALL HC.HAR<9+£*Rj 13+£^Cj88> 
435 REM mark move on arrav 

440 S<RjC>=1 

445 REM P=number of plavs 
450 P=P+1 

490 REM screen array data 

to working arrav 
500 FDR R=l TO 3 
510 FOR C=l TD 3 
5£0 IJ<R,C>=S<R?C> 
530 W<3+R,C>=S<C,R> 
540 NEXT C 
550 W':7jR>=S<RjR> 
560 I...I(8?R)=S<4-R»R> 
570 NEXT R 
580 IF P>1 THEN 700 
590 REM first move? 

600 IF (£»£>=! THEN 640 
610 IF RND>.9 THEN 700 
6£0 l.J<£j£>=4 
630 GOTO 1000 



640 I...K1. l .'=4 
650 GOTO 1000 

690 REM line check.- -Ut i 
700 M=0 

705 REM ha? pla.er t..,:,n • 



710 FOR R=l TO S 

720 T=i...l (R. 1 ' +1.1 vR? £ ' +1.1 .;Ri 3: 

730 IF T .:: 3 THEN 770 

740 I...IIN=1 

750 M=l 

760 GDTO 1000 

770 NEXT R 

775 IF P>4 THEN 3400 
778 REM can i "..in * 



780 FDR R=l TD 

790 t=i.I':r? i>+i.|'P<c:;'+i.I'^r?3) 

800 IF TOS THEN 830 
810 F=l 

8£0 GOSUE £000 
8£5 GOTO 1000 
830 NEXT R 

835 REM has Fla.er 5ot 

£ in a line ? 
840 FDR R=l TD 8 
850 T=M'::R> 1>+IiI'.:Rj£.:'+I.I.:;r,3> 
860 IF T<>£ THEN 880 
870 GDSUB £000 
880 NEXT R 
890 IF M THEN 1000 
895 REM trap spotter 

900 IF <RHD>.9;'^r<U(lj 1> = 1>*KW<3j 
3>=1>THEN 940 

910 IF <RND>.9>^KI..J<1?3) = 1>*';W(3j 
1)=DTHEN 970 

915 REM still not moved ? 

9£0 GDSUB £500 

930 GDTD 1000 

940 W<£> 1)=40 

950 M=l 

960 GDTD 1000 

970 W<3» 1>=4 

980 M=l 

990 REM transfers move 

back to screen arrav 
1000 FDR R=l TD 3 
1010 FDR C=l TD 3 
10£0 IF l..l<R.C>=0 THEN 1040 
1030 S<R.C>=U';R»C> 
1040 IF I...K3+R.C>=0 THEN 1060 
1050 S<CjR;'=I..IC3+R,C> 
1060 NEXT C 

1070 IF l.O';:7«R> = THEN 1090 

1080 S(:RjR>=I...I(7,R> 

1090 IF U<8»R::' = THEN 1110 

1100 S(4-R»R>=W(3jR> 

1110 NEXT R 

11£0 IF WIN THEN 3000 

11 £5 REM puts move on screen 

1130 FDR R=l TD 3 

1140 FDR C=l TO 3 

1150 IF S(RiC> <: 1 THEN 1170 

1160 CALL HCHAR<9+£:^^R5 13+£*:-C,88> 

1170 IF S'iRiO <: 4 THEN 1190 

1180 CALL HCHAR':9+£*R. 13+£^:Cj79> 

1190 NEXT C 

1£00 NEXT R 

1£10 IF F THEN 3£00 

1215 REM same must end 

after 5th move 
1££0 IF P>4 THEN 3400 
1£30 GDTD 320 

1990 REM finds emptv s=iuare 
after- 2 i n a line 
check. 
2000 FDR C=l TD 3 
2010 IF I.J<R.C>>0 THEN £060 
2020 W<R,C>=4 
2030 M=l 
2040 C=3 
2050 R=8 
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£060 NEXT C 
£070 RETURN 

£490 REM finds first empty 
s-iudre if 99 has 
no better move 
£500 IF W<1,3>=0 THEN £600 
£510 IF W(3j£)=0 THEN £6£0 
£5£0 FDR R=l TD 3 
£530 FDR C=l TD 3 
£540 IF W<R>C>O0 THEN £570 
£550 U(R,C)=4 
£560 6DTD £590 
£570 NEXT C 
£580 NEXT R 
£590 RETURN 
£600 W<1j3>=4 
£610 RETURN 
£6£0 W<3»£)=4 
£630 RETURN 
3000 W$=" YDU WIN " 
3010 R=£0 
30£0 C=l£ 
3030 GDSUB 6000 

3040 CftLL SDUND<1000>110>1>11£»1 

j114.1j-4>1) 

3050 Y=Y-H 

3060 6DTD 3600 

3£00 m=" I WIN " 

3£10 R=£0 

3££0 C=l£ 

3£30 GDSUB 6000 

3£40 CALL SDUND <l 000, ££0> I > £77j I 

1 330,1) 

3£50 1=1+1 

3£60 GDTD 3600 

3400 U$=" DRAWN GAME " 

3410 R=£0 

34£0 C=ll 

3430 GDSUB 6000 

3440 CALL SDUND(500,440. 1> 

3445 CALL SDUND(500,330> 1> 

3450 D=D+1 

3600 WS=" ANOTHER GAME ? (Y/N) " 

3610 R=££ 

36£0 C=3 

3630 GDSUB 6000 

3640 CALL SDUND (£50, 1397, 1> 

3650 CALL KEY(.3,K,Z) 

3660 IF 2=0 THEN 3650 

3670 IF K=89 THEN 3700 

3680 IF K=78 THEN 3800 

3690 GDTD 3640 

3700 FDR R=l TD 3 

3710 FDR C=l TD 3 

37£0 £<R,C>=0 

3730 NEXT C 

3740 NEXT R 

3745 REM clear screen array 

S: same '-'ariables 
3750 WIN=0 
3760 F=0 
3770 P=0 
3780 GDTD 160 
3800 CALL SCREEN <S> 
3810 CALL CLEAR 

38£0 PRINT TAB<7> ; -pRDGRAM INDEX 

3830 PRINT •• SET UP ARRAYS 

...130": : 

3840 PRINT •• IiRRM SCREEN 

...160":: 

3860 PRINT •• PLAYER ^S MDVE 

...370":: 

3870 PRINT •• ZO TD WO TRANSFER 
...490":: 

3880 PRINT " FIRST MDVE 

...590":: 

3890 PRINT " LINE CHECKS 

...690":: 

3900 PRINT " WO TD SO TRANSFER 
.. .990": : 

3910 PRINT " UPDATE DISPLAY 

..11£5":: 

39£0 PRINT " MDVE FINDERS 199 

Og.£490": : 



3930 PRINT " RESET FDP NEW GAME. 
. .3700": : 

3940 FDR D=l TD 5000 
3950 NEXT D 
3960 END 

5000 FDR N=l£8 TD 130 
5010 READ G« 
50£0 CALL CHAR'N.GS' 
5030 NEXT N 

5040 DATA 181S1S1S18181S18. 18181 
3FFFF 181818,0 OF FFF 0000 
5050 CALL CDLDR'9,5,1> 
5060 CALL CDLDR':lO,5,i:> 
5070 RETURN 

6^100 FDR 0=1 TD LEN<W$:' 
6010 X= ASC <SEG« 'hit , Q . 1 > > 
60£0 CALL HCHAR'RjQ+CX:- 
6030 NEXT Q 
6040 RETURN 
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10 REM CRRDS 

£0 REM MflCBRIDE 1983 

30 DPTIDN BASE 1 

40 DIM C$<4j13> 

50 DIM H$<4>13) 

60 CftLL SCREEN <S) 

70 CALL CLEAR 

80 PRINT TAB(13>;"CARDS"::: 

90 PRINT " THIS PROGRAM SHUFFLES 

»DEALS"::" AND SORTS A PACK OF C 

ARDS."::: 

95 REM define 3rai>hics 

100 GDSUB 5000 
120 CALL KEY <3.K, Si- 
ISO INPUT •• PRESS ENTER TO BEGIN 

••:AS 
140 CALL CLEAR 

150 PRINT •• HERE^S THE PACK": 



160 
RD" 
165 

170 
175 

180 
185 

190 
195 

200 
205 
210 
220 
230 
240 
250 
260 
270 
230 
290 



PRINT •• C$ (SUIT? VALUE) 



CA 



REM 



set.- UP F-4ck 



GDSUB 3000 

REM how many in each 

hand ? 
Nl = 13 

REM how iTiar.Y hinds 

Tl=3 
REM 



shuffle ind deal 



GDSUB 3200 

REM fourth hand 

GDSUB 3400 

PRINT •• HERE ARE THE HANDS." 

FOR N=l TD 4 

PRINT ::" HAND "jN:: 

FDR T=l TD 13 

PRINT H!;ajiT> ; 

NEXT T 
NEXT N 

PRINT ::" THEV NEED SORTING. 
PRESS ANY KEY WHEN READY.": 



300 CALL KEY^SjKjS) 
310 IF S=0 THEN 300 
315 REM 4 hands 

320 FOR N=l TD 4 

325 REM 12 runs fhroush 

330 FOR T=I TD 12 
335 REM 12 bubbles 

340 FDR 1=1 TD 12 

350 IF H$aM>:: H:I.<NjI + 1:'THEN 400 

360 X$=H$<N>I> 

370 hS':n» i>=H3;aM+i> 

380 H$<NjI + D=Xt 
390 GDSUB 3550 
400 NEXT I 
405 NEXT T 
440 NEXT N 

450 PRINT " PRESS ANY KEY TO GO 
DN" 

460 CALL KEY<3»K,S> 
470 IF S=0 THEN 460 
480 CALL CLEAR 

490 PRINT TABv7>; "PROGRAM INDEX 



500 PRINT 
...80":: 
510 PRINT 
.3000":: 
520 PRINT 
.3200":: 

530 PRINT 
.3400":: 
540 PRINT 
.3550":: 
550 PRINT 
.5000":::: 
560 END 
3000 REM 



DEMDNSTRATIDN. 



SET UP PACK. 



3010 RESTORE 3000 



SHUFFLE AND DEAL.. 



FILL FOURTH HAND.. 
DISPLAY SUBROUTINE 



DEFINE GRAPHICS. 



set UP P4ck 



3020 FOR N=l TO 4 

3025 REM sets suit srdPhic 

3030 READ X 

3040 G$=CHR$<X> 

3050 FOR T=l TO 13 

3055 REM value sraphic 

3060 P$=CHRS<49+T> 

3070 IF T<9 THEN 3120 

3080 IF <N=2> + <N=3>THEN 3110 

3085 REM hi3h ualue cards 

3090 P$=CHR$<112+T> 

3100 GOTO 3120 

3110 P$=CHRSa05+T> 

3120 C$<N>T)=G3i!.xP$ 

3125 PRINT TABC6>;N;TABai>;T;TA 

B(21) ;C$<NjT> 

3130 NEXT T 

3140 NEXT N 

3150 DATA 120. 113j 112j 104 
3160 RETURN 

3200 REM deals hands 

3201 PRINT ::" SHUFFLING AND DEA 
LING. " 

3210 FDR T=l TD Tl 
3220 FOR N=l TD Nl 
3230 X=INT<RND-:h:)+1 
3240 Y=INT':.RND*rl3>+l 
3245 REM dealt, a 1 read.? 

3250 IF CJ:(X.Y>="" THEN 3230 
3260 H$<TsN>=C:i;<:X5Y> 
3265 REM car^d now dealt 
3270 C$<X.Y> = "" 
3280 NEXT N 
3290 NEXT T 
3300 RETURN 
3400 X=l 
3410 Y=l 
3415 REM fill 
with unde 
3420 FDR N=l TD 13 
3430 IF CJ(;X..Y.:' = 
3440 H$<4iN::'=C*< 
3450 C:i;<X,Y>="" 
3460 GDTD 3520 
3470 Y=Y+1 

3480 IF Y<14 THEN 3510 

3490 Y=l 

3500 X=X+1 

3510 GOTO 3430 

3520 NEXT N 

3530 RETURN 

3540 REM sor^tins display 

3550 FDR J=0 TD 1 

3570 D:I:=H$(Nj I+.J> 

3600 X=ASC (SEGJ; >.M> 1 > 1 :> > 

36 1 Y= ASC CSEG$ (M ? 2 j 1 > > 

362 CALL HCHAR C2+N^^4 , 1 + C I +.J) -;:-2 , 

X> 

3630 CALL HCHAR 'r2+NMj 2+ <I + J> *2» 
Y> 

3640 NEXT J 
3650 RETURN 

5000 PRINT " GRAPHICS BEING DEFI 

NED"::" PLEASE WAIT."::: 

5005 RESTORE 5000 

5020 FDR N=l TD 14 

5030 READ XjGS 

5040 CALL CHAR<XjG$> 

5050 NEXT N 

5070 DATA 1 13, 006CFEFEFE7C381 0» 1 
12> 001 0387CFE7C381 Oj 1 14, 4C525252 
5252524C, 115, 7E 08080808084830 
5080 DATA 1 16, 18244242424A241Aj 1 
17,4448506050484442, 118, 18244242 
7E424242 

5090 DATA 120, 1 0387CFEFE541 038, 1 
04 , 3838 1 0D6FED6 1038,121, 4C525252 
5252524C, 122, 7E 08 08 08 08 084830 
5100 DATA 123,18244242424A241A,1 
24,4448506050484442, 125, 18244242 
7E424242 

5200 CALL COLOR (11, 9,1) 
5220 RETURN 



fourth hand 
a 1 1 ca r- d s 



THEN 3470 



101 



LOGICOL 



lO REM LOGICOL 
£i:i REM MHCBRiriE 
30 CFiLL SCREEN a6> 
40 CALL CLERR 

5 PR I NT TRE < 1 0> ; " LOG I COL " : : : 

60 PRINT •• I WILL THINK OF 4 DIP 

FERENT": : ■•COLOURS:. 

70 PRINT •• YOU MUST TRY TO GUES 

S l..lHflT"::"THEY hRE.":: 

SO PRINT •• I LL TELL YOU HOW MAN 

Y RRE"::-IN THE RIGHT PLRCE-<P> 

RND": : "HOI...! MRNY RRE RIGHT COLOUR 

90 PRINT -BUT IN THE URONG PLACE 

lOiii PRINT ■• ONE MOMENT PLEASE." 

110 FOR N=9b TO 136 STEP 8 
120 CALL CHAR<N. "0"> 
130 NEXT N 

1 4 CALL CHAR < 1 44 - 1 8c:4 04 08 1 1 U 
ril n" :i 

150 FOR N=-? TO 15 
160 READ E 

170 CALL COLOR (N,£,B:' 
130 NEXT N 

190 DATA 5?8.3i 145 9- Id' 16 

£00 OPTION BASE 1 

£10 DIM Pi(4> 

££0 DIM C$<4) 

£30 DIM L$':6) 

£40 FOR N=l TO 6 

£50 READ LS(N) 

£60 NE^^T N 

£70 DATA B'C.'GjMjR.Y 

£80 PRINT • PRESS ANY KEY TO BEG 

IN. ••: : 

£90 CALL SOUND (500. 500. i ::' 
300 CALL KEY <3jKjS> 
310 IF S=0 THEf] 300 
3£0 CALL CLEAR 
3£5 MYGO=0 

330 PRINT TAB<£) ;CHR:i.<144:.- ; •• •" ? C 
HR'I;(144> ; •• ";CHR3:(144> ; ■■ "jCHR^K 
144) ;•• P C COLOUR CODE" 
34 PRINT ::TAE(17>?CHRJ:'::96>;" E 
LUE B": : 

350 PRINT TRB(17> ;CHRJ';i04> ; " CY 
AN C": : 

360 PRINT TAB<l7:';CHR3iai£:';" GR 
EEN. . .G": : 

370 PRINT TAB<17> ;CHR:I.a£0> ; " MA 
GENTA.M": : 

380 PRINT TAB(:i7> ;CHRt(:i£8) ; " RE 
D R": : 

390 PRINT TAE':i7> ;CHR*a36> ; " YE 
LLOU. .Y": : : : 

400 PRINT TAB <£>; "PICK 4 DIFFERE 

NT COLOURS": : : : : 

410 FOR N=l TO 4 

4£0 X=INT'.:RND^6>+1 

430 IF N=l THEN 470 

440 FDR T=l TO N-1 

450 IF L$00=C$<T>THEN 4£0 

460 NEXT T 

470 C$<N>-Lt(X> 

480 NEXT N 

490 PR=4 

500 RP=0 

510 RC=0 

5£0 FOR N=l TO 4 

530 W$=" COLOUR ":i:STR$ (N) 

540 R=££ 

550 C=3 

560 GOSUE 6000 

570 CALL S.OUNDf:500j500> 1> 

580 CALL KEY<3jKjS> 

590 IF S=0 THEN 580 

600 CALL HCHAR<:24j1,32»32> 

610 FOR T=l TO 6 

6£0 IF K<>ASCa$a>>THEN 640 

630 GOTO 700 

640 NEXT T 

650 UIJ=" PLEASE PRESS INITIAL LET 
TER' 

660 R=£4 



670 C.= l 

680 GDSUB 6000 

690 GOTO 570 

700 IF N=l THEN 800 

710 FOR T=l TO N-1 

7£0 IF CHR$ <K> =PS a) THEN 750 

730 NEXT T 

740 GOTO 800 

750 l...l$=" DIFFERENT COLOURS PLEASE 

760 R=£4 
770 C=£ 

780 GOSUE 6000 

790 GOTO 570 

800 PS(N>=CHR3:aO 

310 FDR T=l TO 6 

8£0 IF P3;<N> <>L$<T>THEN 840 

830 CN=T:^S+S8 

340 NEXT T 

850 CALL HCHARfpR.N-;r£+£jCN> 
860 NEXT N 

870 IF MYGO THEN £0£0 

900 FOR T=l TO 4 

910 FOR N=l TO 4 

9£0 IF P$<T>=C$(T>THEN 950 

930 IF P3:<T>=CS (N>THEN 970 

94 GOTO 990 

950 RP=RP+1 

960 GOTO 1000 

970 RC=RC+1 

980 GOTO 1000 

990 NEXT N 

1000 NEXT T 

1010 l..l:i:=STR1;':RP:' 

10£0 R=PR 

1030 C=l£ 

1040 GOSUE 6000 

1050 l.ll=STR5.'.RC> 

1060 C=14 

1070 GOSUE 6000 

1030 PR=PR+£ 

1090 IF PR>18 THEN 1£00 

1100 IF RP=4 THEN 1400 

1110 GOTO 500 

1£00 1.1$= "ENOUGH ! ! IT UAS " 

1£10 FOR N=l TO 4 

1££0 W:i:=l.l$&:C$(N> 

1£30 IJ$=W$c.:" " 

1£40 NEXT N 

1£50 R=££ 

1£60 C=3 

1£70 GOSUE 6000 

1£30 GOTO 1600 

1400 W$= "RIGHT IN "£:STF"i; <PR-4> / 

1410 WS:=IJJ:&" GOES." 
14£0 R=2£ 
1430 C=3 

1440 CALL SOUND < 1000' 500 J 1> 
1450 GOSUE 6000 
1460 GOTO 1600 

1600 l...l$="CAN I HAVE A GO TCv'-'N) 

1610 R=£4 

1620 C=5 

1630 GOSUE 6000 

1640 CALL SOUND a 000 J 500 > 1> 

1650 CALL KEYOjKjS) 

1660 IF S=0 THEN 1650 

1670 IF K=89 THEN 1850 

1680 IF K=78 THEN 1700 

1690 GOTO 1640 

1700 W$="DD YDU WANT ANOTHER 6D? 

(Y/N) " 

1710 R=24 

1720 C=2 

1730 GOSUB 6000 

1740 CALL SOUND C500j500» 1) 

1750 CALL KEYOjKjS) 

1760 IF S=0 THEN 1750 

1770 IF K=89 THEN 320 

1780 IF K=7S THEN 1800 

1790 GOTO 1740 

1800 STOP 

1850 FDR N=2 TO 18 STEP 2 
1860 CALL HCHAR<N,4»32j 12) 
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1870 NEXT N 
1880 CR=4 
1885 CC=4 
1890 CG=0 

1900 CALL HCHflR<19jl.3£? 19£> 

1910 W$="PLERSE TELL ME YOUR CDL 

□URS" 

1920 R=19 

1930 C=2 

1940 GDSUB 6000 

1950 m="l PRDMISE NOT TD REMEMB 
ER!" 

I960 R=£0 

1970 GDSUB 6000 

1 98 CALL SOUND (30 - 5 » 1 > 

1990 MYG0=1 

£000 PR=2 

£010 GOTO 5£0 

£ 0£ CALL HCHflR ( 1 9 . 1 » 3£ , 1 9£> 

£030 UI$="I CRNNOT GUESS PLACES." 

£040 R=£0 

£050 C=3 

£060 GDSUB 6000 

£070 GS="BCGN" 

£080 GDSUB 5000 

£090 DN K GDTD £1 00« £150i £500, 30 
00 

£100 GDSUB 3500 
£110 GDTD £090 
£150 G$="BCRV" 
£160 GDSUB 5000 

£170 DN K GDTD £ ISO? ££00. ££50? 30 
00 

£180 GDSUB 3500 
£190 GDTD £170 
££00 G:5="GNRY" 
££10 GDSUB 5000 

£££0 DN K GDTD ££30. ££30, ££30, 30 
00 

££30 GDSUB 3500 
££40 GDTD £££0 
££50 G$="BGRY" 
££60 GDSUB 5000 

££70 DN K GDTD ££30, £300, £350, 30 
00 

££80 GDSUB 3500 
££90 GDTD ££70 
£300 G$="CnRY" 
£310 GDSUB 5000 

£3£0 DN K GDTD £330, £330, £330, 30 
00 

£330 GDSUB 3500 
£340 GDTD £3£0 
£350 GS="BMRY" 
£360 GDSUB 5000 

£570 DN K GDTD £380, £400, £380, 30 
00 

£380 GDSUB 3500 
£390 GDTD £370 
£400 G$=*"CGRY" 
£410 GDSUB 5000 

£4£0 DN K GDTD £430, £430, £430, 30 
00 

£430 GDSUB 3500 
£440 GDTD £4£0 
£500 6S="CGriR" 
£510 GDSUB 5000 

£5£0 DN K GDTD £530, £550, £700, 30 
00 

£530 GDSUB 3500 
£540 GDTD £5£0 
2550 G$="BC6Y" 
2560 GDSUB 5000 

2570 DN K GDTD £580,2580,2600,30 
00 

2580 GDSUB 3500 
2590 GDTD £570 
2600 GS="BCMY" 
2610 GDSUB 5000 

2620 DN K GDTD £630,2630,2650,30 
00 

£630 GDSUB 3500 
£640 GDTD £6£0 
2650 G$="BGriY" 
2660 GDSUB 5000 

2670 DN K GDTD 2680,2680, £680, 30 
00 



£680 GDSUB 3500 
£690 GDTD £670 
2700 G$="CGriY" 
2710 GDSUB 5000 

2720 DN K GDTD £730, £750, £730, 30 
00 

£730 GDSUB 3500 
£740 GDTD £7£0 
£750 Gf.= "BCGR" 
£760 GDSUB 5000 

£770 DN K GDTD £730, £780, £800, 30 
00 

£780 GDSUB 3500 
i790 GDTD £770 
£300 G3;="BCMP" 
£310 GDSUB 5000 

£S£0 DN K GDTD £830, £330, £850, 30 


£330 GDSUB 3500 
£34 GDTD £8£0 
£850 Gt.= "B6MP" 
£3bO GDSUB 5000 

£370 D\i K GDTD £880' £380, £380, 30 
00 

£380 GDSUB 3500 

£890 GDTD £370 

3000 I.II.= "HDI.I : THAT THEN^" 

3010 R=££ 

30£0 C=5 

3030 GDSUB 6000 

3040 GDTD 1700 

3500 W*=" PLEASE CHECK THAT!" 

3510 R=£3 

35£0 C=3 

3530 GDSUB 6000 

354 CALL SOUND 5 , 5 < 1 > 

3550 CG=CG-1 

3560 GDSUB 5100 

3570 RETURN 

5000 FDR N=l TD 4 

5010 FDR T=l TD 6 

50£0 IF SEG1;':G:i;,N, l :- <>UIia>THEN 

5060 

5030 CN=T*8+88 

5 04 CALL HCHAR • CR . CC , CN> 

5050 CC=CC+£ 

5060 NEXT T 

5070 NEXT N 

5080 CR=CR+£ 

5090 CC=4 

5100 I..J$="HDI.I NArJY RIGHT COLOURS^ 

5110 R=£4 

5120 C=£ 

5130 GDSUB 6000 

5140 CALL SDUND 5 ,500,1 > 

5150 CALL KEY<3,K,S> 

5160 IF S=0 THEN 5150 

5170 IF <K<49> + <K>5£>THEN 5140 

5180 CALL HCHAR (£4, £6, K:;- 

5190 K=K-48 

5£00,CG=CG+1 

5210 CALL HCHAR •:£3,1,3£,64> 
5£20 RETURN 

6000 FDR Q=l TD LENdJ*) 
6010 X=ASC <SEG$ (M , Q , 1 > > 
6020 CALL HCHAR •:R,Q+C, X> 
6030 NEXT Q 
6040 RETURN 
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COMMAMXD 



10 REM COMMflNDO 

20 REM MflCBRIDE 1983 

21 REM 

22 REM ** Please note 

23 REM rems removed from 

cdjsette programs 

24 REM to S4ve memorv 

30 CALL CLEAR 

40 PRINT TAB < 10) ; "COMMflNDO"::: 
50 PRINT "GRAPHICS BEING DEFINED 

60* PRINT " PLEASE WAIT.":: 

70. FDR N=l TO 12 

80 READ X,GS 

90 CALL CHAR<X,6$> 

100 NEXT N 

105 REM see 190 and 
290-310 for kev 

1 1 DATA 1 28 « " 08 1 8 08 08 08 08 1 C " j 1 2 

9» "1C22020408103E" 

120 DATA 130»"3844041S044438"> 13 

1,"FF9999FFFFE7E7E7" 

130 DATA 136> "0010189SFE981810"* 

137, "0030389CFF9C3830" 

140 DATA 133."7878FCFFFC787800"P 

1 39 , " FFBDDEE7E7DBEDFF " . 1 52 • " 

80FFF8C8C0C0' 

150 DATA 144^-01 0001 0001 0001AA"» 
145» "FFFFFFFFFFFFFFFF"» 146j "0000 
001818" 

160 CALL COLOR <1 3,2,8;- 

170 CALL COLOR': 14, 9, 12) 

180 CALL COLOR -a 5, 3, 16) 

185 CALL C0LDR<16,2, 16) 

190 PRINT " IN THIS GAME YOU WIL 

L GIVE":: "THE ORDERS TO 3 UNITS 

";cHR*'i28>;" ";cHR$<i29>;" ";ch 

R$<130>: : 

200 PRINT "IN THEIR RAID ON AN E 
NEMY":: "INSTALLATION.":: 
210 PRINT " THERE ARE THREE DIFF 
ERENT":: "TARGETS -1 THE FUEL DUM 
P"::" -2 THE TANK DEPOT!" 

220 PRINT " -3 THE AIRPOR 

T.":: 

230 PRINT "1 HAS FEW GUARDS 3 HA 
S MOST.":: 

240 INPUT "WHICH TARGET ,1 2 OR 
3 ?":TN 

250 IF TN>3 THEN 240 
260 PRINT ::" YOU CAN GIVE YOUR 
UNITS ":: "ORDERS FOR UP TO 6 MOV 
ES" : : "AHEAD. ' : : 

270 INPUT "HOW MANY MOVES AT A T 

IME ? a TO 6) ? ":M 

280 IF M>6 THEN 270 

290 PRINT ::" THESE SYMBOLS ARE 

USED:"::" " ; CHR$ (136) » " ";CHRS( 

137);" PLANES":: 

300 PRINT " ";CHR$<138) ; " TANK 

",CHR$<139>;" FUEL DUMP"::" ";C 

HR$(131);" BUILDING", 

310 PRINT CHR$(152);" GUARD":: 

" YOU SCORE BY BLOWING UP "::"PL 

flNES, TANKS AND FUEL DUMPS":: 

320 PRINT " OR BY SHOOTING GUARD 

S.":: 

330 PRINT " THE LOSS OF A UNIT 
UILL"::" REDUCE YOUR SCORE.":: 

340 PRINT " ONE MOMENT PLEASE 
»*": : 

345 REM set up arravs 

350 OPTION BASE 1 
355 RANDOMIZE 

359 REM Board 

360 DIM BS<18, 16) 

364 REM Bombs 

365 DIM B<10,3) 

369 REM Guards 

370 DIM G(10,3) 

379 REM Units 

380 DIM U(3,2) 



384 REM shot guard count 

385 GN=0 

389 REM Orders 

390 DIM 0<3,6) 

394 REM liK>6 unit count 

395 UN=3 

399 REM basic board 

400 FDR R=2 TD 17 
410 FDR C=2 TO 15 
420 B$(R,C)=CHR$<144) 
430 NEXT C 

440 NEXT R 

450 ON TN GOTO 460,570,680 

459 REM fuel dump 

460 FOR N=l TO 8 
470 C=INT<RND*13)+3 
480 R=INT<RND*6)+6 
490 B$CR,C)=CHR$a31) 
500 NEXT N 

510 FDR R=3 TO 5 STEP 2 
520 B$<R,3)=CHRJ <139) 
530 B$(R,5)=CHR$<139) 
540 NEXT R 
550 GOTO 780 
560 REM 

569 REM tank depot 

570 FDR N=l TO 6 
580 R=INT<RND^^5)+8 
590 C=INT(RND*13)+3 
600 B$<R,C)=CHR$Cr31) 
610 NEXT N 

620 FOR N=l TO 10 
630 R=INT(RND*7;+2 
640 C=INT<RND*13)+3 
650 B$<R,C)=CHR$<138) 
660 NEXT N 
670 GOTO 780 

679 REM airport 

680 FOR N=l TD 10 
690 R=INT(RND*14)+1 
700 C=16-R-<RND>.5) 
710 B$<R,C)=CHRS(131) 
720 X=136-<RND>.5) 
730 R=INT(RND->14)+2 
740 C=INT<RND*13)+3 
750 IF R+015 THEN 730 
760 B$<R,C)=CHR$(X) 
770 NEXT N 

779 REM board edges 

780 FDR R=l TO 18 
790 BS<R,2)=CHR$<145) 
800 BS<R, 16)=CHR$<145) 
810 IF R>16 THEN 845 
830 B$<1,R)=CHR$<145) 
840 B$a8,R)=CHR$(M5) 
845 B$<R,1)=CHR$<32) 
850 NEXT R 

859 REM position guards 

860 FDR N=l TD 1+TN*3 
870 R=INT<RND*10)+2 
880 C=INT<RND*13)+3 

890 IF B$(R,C)<>CHRS (144) THEN 87 
• 

900 BS(R,C)=CHR$(152) 

910 6(N, 1)=R 

920 G(N,2)=C 

930 G(N,3)=INT(RND*4) + 1 

940 NEXT N 

945 REM position units 

950 C=INT<RND»8)+4 
955 FDR N=l TD 3 

960 B$(17,C+N)=CHR$(127+N) 
970 U(N, 1)=17 
980 U(N,2)=C+N 
9§5 NEXT N 

990 INPUT "PRESS ENTER TD START 
GAME ":A$ 

999 REM initial screen 
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1000 CALL SCREEN < 12) 
1010 CALL CLEAR 
1020 FOR R=l TD 18 
1030 FDR C=l TD 16 
1040 X=flSC<BS<R,C)) 
1050 CALL HCHAR<R,C,X) 
1060 NEXT C 
1070 NEXT R 
1080 C=18 

1090 FDR R=l TD 18 
1100 READ UlS 
1110 6DSUB 6000 
1120 NEXT R 

1130 DATA DRDER CDDES> " "jGD LEF 
T A>GD RIGHT BjGD UP C 
)6D DDUN D 

1140 DATA " "jFIRE LEFT EiFIRE 
RIGHT F»FIRE UP G»FIRE DDUN 
H 

1150 DATA •■ "jSET BDMB Ij" "»N 
D MOVE Jj" •• J CHANGE LASTjMDVE 
K 

1160 W$="GAME LEVEL "mRS (TN*6+ 
M) 

1170 R=20 

1 180 C=3 

1190 GDSUB 6000 

1199 REM main loop start 



1200 CALL HCHAR<21j 1,32j128> 

1210 FDR T=l TD 3 

1220 IF U<Tj1)=0 then 1430 

1230 U$="DRDERS FDR UNIT "ScSTR$< 

T) 

1240 R=23 

1250 C=3 

1260 GDSUB 6000 

1270 CALL HCHAR<21j <T-D*10+2j12 
7+T) 

I 280 FDR N=l TD M 

1290 WS="MDVE "«<STR$<N) 

1300 R=24 

1310 C=5 

1320 GDSUB 6000 

1330 CALL SDUND(500>500, 1) 

1340 CALL KEY<3jK>S) 

1350 IF S=0 THEN 1340 

1360 IF <K<65)«<K>7)THEN 1330 

1370 D<TjN)=K-64 

1380 CALL HCHAR<:21> a-l>*10+3+N> 

K) 

1390 IF K<75 THEN 1420 

1400 N=N-1-<N=1) 

1410 6DTD 1290 

1420 NEXT N 

1430 NEXT T 

1440 FDR T=l TD 5 

1450 FDR P=300 TD 600 STEP 60 

1460 CALL SDUND<20jP>1> 

1470 NEXT P 

I 480 NEXT T 

1490 CALL HCHAR<23j1>32j64) 

1499 REM carry out orders 

1500 FDR N=l TD M 
1510 FDR T=l TD 3 

1520 IF U<T,1)=0 THEN 1900 
1530 IF D<T>N)>4 THEN 1560 
1540 CALL HCHAR<U<Tj l)»Ua»2),14 
4> 

1550 B$<Uail)>U<T>2>)=:CHR$<144) 
1560 DN D<TjN)6DTD 1570> 1590j 161 
0» 1630> 1670> 1700> 1730j 1760» 1790» 
1850 

1570 U<Tf2)=U<T»2)-l-<BS<U<T»l>» 
U<T»2)-1><>CHR$<144)) 

1580 GDTD 1640 

1590 U<T»2)=U<T>2)+1+<B$<U<T>1)> 

U<T»2)+1)<>CHR$<144>) 

1600 GDTD 1640 

1610 U<T,1)=U<T»1)-1-<B$<U<T,1>- 

1»U<T»2)><>CHR$<144)) 

1620 GDTD 1640 

1630 U<T»1)=U<T> 1)+1+<B$(U<T»1> + 
1jU<T.2))<>CHR$<144)) 



1640 B$<U(Tj l>»Ua>2))=CHR$<127+ 
T) 

1650 CALL HCHAR(U<T»l>,Ua,2>»12 
7+T> 

1660 GDTD 1850 

1670 D=4 

1680 GDSUB 3000 

1690 GDTD 1850 

1700 D=2 

1710 GDSUB 3000 

1720 GDTD 1850 

1730 D=l 

1740 GDSUB 3000 

1750 GDTD 1850 

1760 D=3 

1770 GDSUB 3000 

1780 GDTD 1850 

1790 IF BN=10 THEN 1810 

1800 GDSUB 3500 

1805 GDTD 1850 

1810 W$=" YDU HAVE RUN DUT DF BD 
MBS" 

1820 R=23 

1830 C=2 

1840 GDSUB 6000 

1850 IF BS=0 THEN 1900 

I860 GDSUB 4000 

1900 NEXT T 

1909 REM suards move 

1910 FDR T=l TD 10 

1920 IF G<Tj1)=0 then 2300 

1929 REM look for enemv 

1930 FDR Z=l TD 3 

1935 IF U(Zj1)=0 then 2100 

1940 IF RND>.7 then 2100 

1950 IF G<Tj2)<>U<2»2)THEN 2020 

1970 IF ABS<6<T, l)-U<Z»n)>6 THE 

N 2100 

1980 D=l 

1990 IF G<T>1>>U<Z»1>THEN 2080 

2000 D=3 

2010 GDTD 2080 

2020 IF G(Tj1><>U<Z»1>THEN 2100 
2040 IF ABS<G<:T»2>-U<Zj2>)>6 THE 
N 2100 
2050 D=4 

2060 IF G<Tj2)>U<Z>2>THEN 2080 

2070 D=2 

2080 GDSUB 3030 

2090 Z=3 

2100 NEXT Z 

2109 REM patrolling 

2110 B$(G<T>1),G<T»2>)=CHR$<144> 
2120 CALL HCHAR<G<T»1>»G<T»2>,14 
4) 

2130 DN G<T»3>GDTD 2140, 2170>220 
0,2230 

2140 IF BS<G<T,l)-l,Ga,2))<>CHR 
$(144) THEN 2270 
2150 G<T,D=G<T, D-l 
2160 GDTD 2290 

2170 IF B$<Ga,l>,G<T,2)+l)<>CHR 
$< 144) THEN 2270 
2180 G<T,2)=G<T,2)+1 
2190 GDTD 2290 

2200 IF B$<G<T,1)+1,G(T,2))<>CHR 
$< 144) THEN 2270 
2210 6<T,l)=Ga,l) + l 
2220 GDTD 2290 

2230 IF B$<6<T»1),6<T,2)-1)<>CHR 

S< 144) THEN 2270 

2240 G<T,2)=6<T,2)-1 

2260 GOTO 2290 

2270 G<T,3)=S<T,3>+1 

2280 G<T,3)=6<T,3)-K4*<6<T,3)>4) 

) 

2290 BS<G<T,1),G<T,2))=CHR$<152) 
2295 CALL HCHAR<6<T, 1) ,6<T»2) , 15 
2) 

2300 NEXT T 

2310 NEXT N 

2320 IF UN THEN 2340 

2330 GOTO 5000 
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£340 W$=" PRESS Q TD QUIT. 6 TD 6D 

□N" 
2350 R=£4 
£360 C=l 
£370 GOSUB 6000 
£380 CALL KEY-CSjKjS) 
£390 IF K=S1 THEN 5000 
£400 IF K=71 THEN 1£00 
£410 6DTD £380 
£999 REM shootins 

3000 R=U<Tj1) 

3010 C=IJ<T.£> 

30£0 GDTD 3100 

3030 R=Ga.l> 

3040 C=Ga»£> 

3100 FDR S=l TD 6 

3110 R=R+(D=1>-(D=3> 

31£0 C=C+ai=4>-(D=£> 

3130 IF BS<RjC:>=CHR«'::144::'THEN 33 

00 

3140 IF <B$<R?C::'=CHR5:<131>> + (B$C 

R>C>=CHR$<145>>THEN 3350 

3150 IF CBStR'C) <CHRJ(1£8>> + <B$( 

R.D>CHR$C130:OTHEN 3£S0 

3155 REM unit, hit 

3160 FDR fl=l TD 3 

3170 IF <LI (ft » 1 > =R> ^ OJ <fl . £> =C> THE 

N 3190 

3180 GDTD 3£70 

3190 U<fljl>=0 

3£00 FDR X=l TD 5 

3£10 CALL Hi:HflR<RjC>l£7+ft) 

3££0 CALL SDUND (50> £00sX5 1> 

3£30 CALL HCHflR <Rj C? 144) 

3£40 CALL SDUND (SO* 1 1 0*X5 1> 

3£50 NEXT X 

3£55 B$ (R . C> =CHRf. ( 1 44) 

3£60 IJN=UN-1 

3£65 IF IJN=0 THEN 5000 

3£70 NEXT A 

3£80 IF B$(R.C> <>CHR$(15£>THEN 3 
350 

3£90 GDSUB 4500 

3£95 GDTD 3350 

3£99 REM bullet 

3300 CALL HCHARCRjCj 146> 

3310 CALL SDUNri<50>-l> 1> 

33£0 CALL SDUND ';£0> -1 » D 

3330 CALL HCHAR (R» Cj 144) 

3340 GDTD 3400 

3350 S=6 

3400 NEXT S 

3410 RETURN 

3499 REM bombs 

3500 BN=BN+1 

3510 B<BN5 1>=U<Tj 1) 

35£0 B<BN>£)=Uaj£) 

3530 WS="CHARGE SET. TIMER STARTE 

D" 

3540 R=£3 

3550 C=£ 

3560 GDSUB 6000 

3570 CALL SDUND <500, 760. 1) 

3580 BS=BS+1 

3590 RETURN 

4000 FDR Z=l TD 10 

4010 IF B(2.1>=0 THEN 4410 

40£0 B<Zj3>=B<Z>3)+1 

4030 IF B(Zj3><18 THEN 4410 

4040 REM explosion 

4050 FDR R=B<Z»1)-1 TD BCZj1>+1 

4060 FDR C=B<Z.£>-1 TD B<Z>£)+1 
4070 IF <R<£) + ':R>17)THEN 4360 
4080 IF (C<£) + <C>15)THEN 4360 
4090 CALL GCHAR<R>C»GC) 
4100 CALL SDUND<50»-1j 1) 
4110 CALL HCHAR<R>C>145) 
41£0 CALL SDUND(50»-5» 1) 
4130 CALL HCHAR(RjC>3£) 
4140 CALL SOUND <50» -8j 1> 
4150 CALL HCHAR<RjC5l44) 



4160 IF GC0 15£ THEN 4£40 
4165 REM iriY suards ther e? 
4170 FDR 1.0=1 TD 10 
4180 IF (G(l.l. 1>=R>^KG<Uj£>=C)THE 
N 4£00 

4190 GDTD 4£30 

4£00 Gaj»i;'=o 

4£10 GN=GH+1 

4££0 i5i<R.C>=CHR*<144> 

4£30 NEXT M 

4£40 IF <GC>135>^^<6C< 140) THEN 4£ 
60 

4£50 GDTD 4£S0 

4£60 BX';;R.C>=CHR$<144> 

4£70 T:i:=TS+l 

4£80 IF <GC<1£S:^ + (GC 130 ' THEN 43 
50 

4£35 REM iri, units there? 

4£90 FDR 1.1=1 TD 3 

4300 IF rU'.l.M:^=R>^*^U<l.l»£>=C)THE 

N 43£0 

4310 GDTD 4340 

43£0 U'::i.M '=0 

4330 UN=UN-1 

4335 IF UN=0 THEN 5000 

4340 NEXT U 

4350 ES<R.C:'=CHRia44> 

4360 NEXT C 

4370 NEXT R 

4390 BS=BS-1 

4400 B<:Zj1>=0 

4410 NEXT Z 

44£0 RETURN 

4499 REM 3Uit -i shot 

4500 FDR H=l TD 10 

4510 IF -GvR' 1>=R)-^':G'A.£>=C)THE 
N 4530 

45£0 GDTD 46c: 

4530 G(A> l :'=0 

4540 FDR X=l TD 6 

4550 CALL HCHRR 'R, 15£> 

4560 CALL SDUND <50. -X. 1> 

4570 CALL HCHRR vRi C? 144.- 

4580 CALL CDUND <50. 1 1 O^OM > 

4590 NEXT X 

4600 Grj=GN+l 

4610 Bt<R«C'=CHR$(144> 

46£0 NEXT A 

4630 RETURrJ 

4999 REM end of siti.e 

5000 IF UN THEN 5040 

5010 CALL IDUNDaOOOj££0» 1) 
50£0 CALL SDUNDaOOO' 110? 1) 
5030 GDTD 5050 

5040 CALL SDUND <:£000> £94. 1.370? 1 
.440. 1) 

5045 CALL HCHAR ■:££. 1 , 3£. 96) 

5050 W1;=" FINAL SCORE ••:i:STR$aN 

:>M^r aS^a 0.> vGN*r5> ) 

5060 R=£3 

5070 C=£ 

50S0 GOSUB 6000 

5090 I.J3:= "ANOTHER GAME 'Ci-'m " 

5100 R=£4 

5110 GDSUB 6000 

51£0 CALL SDUND<150? 1397. 1) 

5130 CALL KEV-^S.K.S) 

5140 IF S=0 THEN 5130 

5150 IF K=39 THEN 190 

5160 IF K=7S THEN 5180 

5170 GOTO 5130 

5180 END 

6000 FDR Q=l TD LEN(W$) 
6010 X=ASC<SEG$<WSjQj D) 
60£0 CALL HCHAR<R>Q+C>X) 
6030 NEXT Q 
6040 RETURN 
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10 REM RIRSHIP 
20 REM MflCBRIDE 1983 
30 CALL SCREEN <8> 
40 CALL CLEfiR 

50 PRINT TAB <10> ; "AIRSHIP"::: 
60 PRINT " YDU ARE THE CARTA I 
N OF"::" AN AIRSHIP* FLYING FR 
DM ":: 

70 PRINT " PARIS TD LDNDDN.": 



75 REM srdF-hics definition 

80 GDSUE £690 

90 CALL KEY<3iK,S) 

100 INPIJT^" DO YDU KNDW HDW TD F 

LY AN AIRSHIP? <Y/N>":A$ 

110 IF A«="Y" THEN 690 

1£0 IF AS="N" THEN 140 

130 GDTD 100 

140 CALL SCREEN (3> 

150 CALL CLEAR 

155 REM i n s i r u •: i i o n ■•■ 

160 PRINT " KEEP A CLOSE WATCH D 
N WIND"::" SPEED AND DIRECTION." 

170 PRINT " IT WILL TEND TD ELDW 
YDU DFF COURSE.":: 
180 PRINT " E.G.- AIRSPEED £0 K. 
P.H"::" BEARING 90 DEGREES":: 
190 PRINT " WIND - 10 K.P.H."::" 

BEARING 180 DEGREES": : 
£ CALL CHAR •: 1 36 » " 37DFFFFFDF8F 
£03") 

£ 1 CALL CHAR 1 37 , " E 0F8FEFEF8E 04 

0C0"> 

££0 PRINT -PRESS ANY KEY TD GO 
N."::: 

£30 CALL CDLDRa3j 14> 1> 
£40 FDR C=3 TD £7 STEP 3 
£5 PR I NT TAB ':C) ? CHRS < 1 £3> ; 
£60 NEXT C 

£70 PRINT " WIND <10 K.P.H) " 
£80 CALL CDLDR'::14»5j 1> 
£9 PR INT : : CHRJ < 1 £9> ? " " j CHRJ C 1 
36>;CHR$<137::';" AIRSPEED £0 K.P. 
H. " 

300 CALL KEY(3«K.S> 

310 IF S=0 THEN 300 

3£0 FDR C=l TD £3 STEP £ 

330 CALL SOUND '::500» 11 Oj£5> 

34 PR I NT TAB (O ; CHR$ 1 £9) j " " j C 

HR«<136> ;CHRS(137> 

350 CALL SOUND CI J -1.3 0> 

360 IF C>£1 THEN 380 

370 CALL HCHAR<£3jC+£.3£j6> 

380 NEXT C 

390 PRINT " REAL BEARING 1££ DEG 
REES"::" GROUND SPEED ££.5 K.P.H- 



400 INPUT "DO YDU UNDERSTAND BEA 
RINGS?" :A$ 

THEN 600 
THEN 440 



410 IF Af.="Y" 
4£0 IF A$="N" 
430 GDTD 400 
435 REM bear-ins 
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440 PRINT TAB(13); "NORTH": TAB <14 
> ; O: : TAB <6> 5 315; TAB<20) j 45: i : : : 
450 PRINT " UEST";TflB<23);"EAST" 
: TAB <4) ; 270; TAB (22) » 90: : : : : : TAB < 
5);225;TABC21);135::: 
460 PRINT TAB<13);i80:TAB(12);"S 
DUTH"::" PRESS ANY KEY TD GD DN" 
470 CALL VCHRR(5j17>130>7) 
480 CALL VCHAR(13>17j128>7) 
490 CALL HCHRR(12)11j131>6) 
500 CALL HCHRR<1£j18>129>6) 
510 FDR N=l TD 5 
520 CALL HCHAR<12-N»17+Nj132) 
530 CALL HCHAR<12+Nj17+Nj133) 
54 CALL HCHAR < 1 2+N > 1 7-N j 1 34) 
550 'CALL HCHAR.(12-N5 17-Nj135) 
560 NEXT N 

570 CALL SDUr>n:K500j550j 1) 
580 CALL KEY<3jKjS) 



590 IF S=0 THEN 580 
595 REM how to sive YOur- 
commands 

600 PRINT TAB <£); "COMMANDING YDU 
R AIRSHIP"::: 

610 PRINT " WHEN THE 99 IS READ 
Y..":: 

6£0 PRINT " GIVE YOUR COMMANDS F 
OR THE":" NEXT HOUR'S FLYING.":: 
" MAX. SPEED 100 KPH.":: 
630 PRINT " MAX. HEIGHT 1000 M. " 
::" BEARINGS IN WHOLE NUMBERS":: 
" USE >S< TO DELETE ERRORS.":: 
640 PRINT " > ENTER < ALL COMMANDS 
."::" YDU WILL BE PULLED IN WHEN 

WITHIN 10 KM. OF AIRPORT."::: 
650 PRINT "» PRESS ANY KEY TD B 
EG IN «" 

660 CALL SOUND 00. 1397, 1> 
670 CALL KEYCS.K.S) 
680 IF S=0 THEN 670 
685 REM initial value.- 

s-m below <810-> 
690 RESTORE 700 

7 READ GN j T . AS . AB i GS . GE . LD . LB . 
PDjPBjH 

7 1 DATA 1 J - 1 J J 33 5 1-0.4 . 33 . 
O.Oj 

7£0 RANDOMIZE 
730 WS=INT<RND-*5>:*5 
740 WB=INT':RNDv7£>^^5 
750 CALL CLEAR 

760 PRINT "WIND":" bear ins s 
F-eed kFh": : "AIRSHIP" : " beari 
speed kFh":: 



770 PRINT "ACTUAL TRAVEL':" bear 
speed kph" : : 

metres" : : 
: "PARIS": "be 

km".: : 
beari ns 
FLIGHT TIME 



ins speed 
780 PRINT "HEIGHT 
:TAB(11) j" AIRPORTS" 
arins distance 
790 PRINT "LONDON": 
distance km":: 

hours" : : : 
300 C=ll 
810 W$=STR$<WB> 
815 REM Wind Beari ns 



8£0 R=£ 

830 GOSUB £810 
840 W:£=STRf. CAB) 
845 REM Airship Beari ns 

850 R=5 

860 6DSUB £810 

870 W$=STRS<GB) 

875 REM Ground Beari ns - 

the way vou reallv so 

880 R=8 

890 GOSUB £310 
900 C=£l 
910 W$=STR*<WS) 
915 REM Wind Speed 

9£0 R=£ 

930 GDSUE £810 
940 W$=STR:i; CAS) 
945 REM Air Speed 
950 R=5 

960 GOSUB £810 
970 WS=STR$<GS) 
975 REM Ground Speed 

980 R=8 

990 6DSUB £810 
1000 R=10 
1010 C=9 
1020 W$=STR$CH) 
1025 REM Heisht 

1030 GDSUE £810 

1040 C=10 

1050 W$=STR$c:PB) 

1055 REM Paris Bearing 

1060 R=16 

1070 GDSUE £810 
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1080 W$=STR$<LB> 

1085 REM London Bearins 

1090 R=19 

1100 6DSUB 2810 

1110 T=T+1 

1115 REM Time-flYin3 hours 

ii£0 w$=strs<:t> 

1130 R=21 

1140 C=14 

1150 GDSUB £810 

1160 C=23 

1170 W$=STR$(PD> 

1175 REM Paris Distance 

1180 R=16 

1190 GDSUB £810 

1200 w$=STR$ aro 

1205 REM London Distance 

1210 R=19 
12£0 GDSUB £810 
1££5 REM Game Number 
1 to London 

£ to Paris 
1£30 IF <LD<ll>-sCGN=l>THEN 2050 
1£35 REM close enouah to 

catch the 3UY ropes? 
1£40 IF (PD<ll>*r<GN=-l>THEN £050 
1£50 CALL SOUND ';£50> 1397. 1> 
1£55 REM 3we orders 

1£60 READY FDR YDUR CDMMRN 

DS *•• 

1£70 R=£4 

1£80 C=l 

1£90 GDSUB £810 

1300 W$=-* BEARING ?" 

1310 R=£3 

13£0 C=3 

1330 GDSUB £810 

1340 GDSUB £460 

1350 flB= I 

1360 IF <flB>360) + CflB<0>THEN 1300 
1370 W$="flIRSPEED 7" 
1380 GDSUB £810 
1390 GDSUB £460 
1400 flS=I 

1410 IF (flS>100> + <flS<0>THEN 1370 
14£0 W$="HEIGHT ? " 
1430 GDSUB £810 
1440 GDSUB £460 
1450 H=I 

1460 IF H>1000 THEN 1430 
1465 REM crash?? 

1470 IF (H<£0>*<flS>£0)THEN 1890 
1475 REM too low?? 

1480 IF H<50 THEN 1500 
1490 GDTD 1570 

1500 U$="!! DANGER - TDD LDU ! ! 

1510 R=£4 

1520 GDSUB £810 

1530 FDR N=l TD 6 

1540 CALL SOUND <50, -1,1) 

1550 NEXT N 

1560 GOTO 1420 

1570 U$=" UAIT - NRVI6RTDR UORKI 
NG " 

1575 REM calculation time 

1580 R=24 

1590 C=2 

1600 GDSUB 2810 

1605 REM X=East-Uest shift 

Y=North-South 
1610 AX=SIN(AB*. 017) *AS 
1620 AY=CDS(AB*.017)*AS 
1630 WX=SIN<UB*.017)»US 
1640 UY=CQS<UB*. 017)*US 
1645 REM overall E/W»N/S 

movement - find speed an 
d bearing 
1650 X=AX+UX 



1660 Y=AY+WY 
1670 GDSUB 2310 
1680 6X=X 
1690 GY=Y 

1695 REM Ground Bearing 

Ground Speed 
1700 GB=B 
1710 GS=D 

1715 REM find Distance and 
Bearing of London 
1720 B=LB 
1730 D=LD 
1740 GDSUB ££70 
1750 LD=D 
1760 LB=B 

1765 REM now for Pans 

1770 B=PB 
1780 D=PD 
1790 GDSUB ££70 
1800 PB=B 
1810 PD=D 

1815 REM the wind keeps 

chansina 
18£0 US=WS+aNT(RND*3>*5)-5 
1830 IF IJS> = THEN 1850 
1840 US=0 

1 85 IJB= WB+ ( I NT <RND*3> * 1 0> - 1 
1860 IF WB>=0 THEN 1880 
1870 WB=WB+360 
1875 REM back to display 
1880 GDTD 800 

1890 W$="!!TDD LDW - TDD FAST- C 
RASH! ! •■ 

1900 FDR V=30 TD 1 STEP -1 

1910 CALL SDUND(£00,£00+5*V,V,£5 

0+ 1 0* V J V , 3 0+ 1 0^ V , V J -8 J V /£) 

1920 NEXT V 

1930 R=£3 

1940 C=l 

1950 GDSUB £8£0 

1960 CALL SDUND (3000. 110? 1. 115. 1 
>500> 1>-8j 1> 

1970 W$="DD YDU WANT TD TRY AGAI 

N? <Y/N> •• 

1980 R=£4 

1990 GDSUB £810 

£000 CALL SDUNDa50, 1397. 1> 

£010 CALL KEY<3.K,S) 

£0£0 IF K=89 THEN 690 

£030 IF K=7S THEN £360 

£040 GDTD £010 

£045 REM in ranse of 

airport 
£050 IF H<110 THEN £110 
£060 W$="DVER AIRPDRT - B.UT TDD 
HIGH" 
£070 R=£4 
£080 C=l 
2090 GDSUB £810 
£100 GDTD 800 

£110 W$="THAT'S CLOSE ENOUGH!" 

2120 R=23 

2130 C=2 

2140 GDSUB 2810 

2150 W$s"DO YOU mU TD FLY BACK 

?<Y/N)" 

2160 R=24 

2170 60SUB 2810 

2180 CALL SOUND<150,1397»1) 

2190 CALL KEY<3,K,S) 

2200 IF K=89 THEN 2230 

2210 IF K=78 THEN 2860 

2220 GOTO 2190 

2230 RESTORE 2240 

2235 REM data for London 

to Paris trip 
2240 READ GN,T, AS> AB»GS»6B»LD»LB 
»PD,PB,H 

2250 DATA -1,-1j 0, Oj 0» 0» 0, 0,400, 
150,0 

2260 GOTO 750 

2265 REM finds how far E/U 

N/S of airports 
2270 X=SIN<B*.017)*D 
2280 Y=COS<B*.017)*D 
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2285 REM adjusts for actual 


2910 PRINT 




HOW TO COMMAND 


mo^^ement 


...595" 






2290 X=X-GX 


2920 PRINT 




INITIAL VALUES 


2300 Y=Y-GY 


...685" 






2305 REM common subroutine 


2930 PRINT 




PRINT VARIABLES... 


finds bearing and 


...800" 






speed/distance from E/W» 


2940 PRINT 




CHECK FOR END 


N/S fisures 


. . 1225" 






2310 D= I NT <SQR <X*X+Y*Y) ) 


2950 PRINT 






2320 IF YOO THEN 2350 


. . 1260" 






2330 B=90 


2960 PRINT 




CHECK-SAFE HEIGHT? 


2340 GOTO 2440 


. . 1465" 






2350 IF XOO THEN 2380 


2970 PRINT 




NAVIGATOR WORKING. 


2360 B=0 


. . 1570" 






2370 GOTO 2440 


2980 PRINT 


" 


REAL FLIGHT-PATH.. 


2380 B=INT<flTN<X/Y)*57.3) 


. . 1605" 






2390 IF <Y> 0) * <X> 0) THEN 2440 


2990 PRINT 




AIRPORT FIGURES... 


2400 IF <Y>0)*<X<0)THEN 2430 


..1715" 






2410 B=180+B 


3000 PRINT 




CHANGING WINDS 


2420 GOTO 2440 


..1815" 






2430 B=360+B 


3010 PRINT 






2440 REM at last!! an end 


. . 1885" 






to those awful sums. 


3020 PRINT 






2450 RETURN 


..2045" 






2455 REM call kev/input 


3030 PRINT 




RESET FOR PARIS... 




..2235" 






2460 1$="" 


3040 PRINT 




MORE CALCULATIONS. 


2470 Cl=14 


..2265" 






2480 CALL SOUND < 150? 1397 > 1) 


3050 PRINT 




INPUT SUB-ROUTINE. 


2490 CALL HCHfiR<23jClj 144) 


..2455" 






2500 CALL KEY(3jK?S) 


3060 PRINT 






2510 IF S=0 THEN 2490 


..2685" 






2520 IF K=13 THEN 2610 


3070 PRINT 




PRINT ANYWHERE 


2530 IF <K=83)*(I$>"">THEN 2640 


..2810" 






2540 IF <K<48) + <K>57)THEN 2500 


3080 FUR D= 


1 


TO 5000 


2550 IS=I$8tCHRS<K) 


3090 NEXT D 






2560 CALL SDUNDdOOj-lj 10) 


3100 END 






2570 CALL HCHAR<23>C1>K) 








2580 CALL SOUND (IOj-I? 10) 








2590 C1=C1+1 








2600 GOTO 2500 








2610 I=VAL'a$) 








2620 CALL HCHAR <23. 14> 32? LEN <I$) 








+ 1) 








2630 RETURN 








2640 C1=C1-1 








2650 L=LEN<I$) 








2660 I$=SEG$(I$j 1,L-1) 








2670 CALL HCHAR<23jC1+1 ? 32) 








2680 GOTO 2490 








2685 REM arrow graphics 








2690 RESTORE 2690 








2700 FDR N=128 TO 135 








2710 READ GS 








2720 CALL CHAR<N>G$) 








2730 NEXT N 








2740 DATA 382828AAEE7C381 0> 00180 








CFE87FE0C18) 081C3E775514141C> 183 








07FE17F301800 








2750 DATA 3F1F0F172B51A140>40A15 








* 1 1> 1 r wr i r or J uco^DniP'ttior UP or > r Lr 








8F ftFAT)4ft(4j%S HP 








P7Afl rfil 1 PHftP i'l " nn'sr^r-or'sror 
crov <i^ni.L. L^nnRMH'TJ UUoL'OL'OLijLoL 








3C") 








2770 FOR S=9 TO 12 








2780 CALL COLOR (S> 2? 16) 








2790 NEXT S 








2800 RETURN 








2805 REM print anvwhere 








2810 U$=W$8." " 








2820 FOR Q=l TO LEN(US) 








2830 CALL HCHAR(R>C+Qj ASC<SE6$(W 








$»Q»1))) 








2840 NEXT Q 








2850 RETURN 








2860 CALL SCREEN < 16) 








2870 CALL CLEAR 








2880 PRINT TAB <8); "PROGRAM INDEX 








2890 PRINT " INSTRUCTIONS 








. . . 155" 








2900 PRINT " BEARINGS DISPLAY.. 








...435" 
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English 

Limited warranty — U.K. 



This Texas Instruments (TI) warranty extends 
only to the original consun:\er purchaser. 

1 . The electronic and mechanical components 
of the product are warranted for a period of 
twelve (12) months from the date of 
original purchase under normal use and 
service against defective materials or 
workmanship. This warranty is void if the 
product has been damaged by accident, 
unreasonable use, neglect, improper 
service or other causes arising out of 
defects in materials or workmanship. 

2. Any implied warranties arising out of the 
sale are limited in duration to the above 
twelve (12) month period. 

3. ** During the above twelve (12) month 
period, the product will be repaired or 
replaced with a new or reconditioned one 
of equivalent quality at Texas Instruments 
option, without charge to the purchaser 
when the product is returned, with proof of 
purchase date to a Texas Instruments 
retailer. The repaired or replacement 
product will continue to be warranted until 
the end of the original twelve month period 
or ninety (90) days from the date of repair 
or replacement, whichever comes later. 



4. Important notice of disclaimer regarding 
the software programs and book materials 
— read this carefully before purchasing the 
console and/or programs. 

T.I. does not warrant that the software 
programs and book materials will be free 
from error or will meet your specific 
requirements. Each user is notified that the 
programs may contain errors and assumes 
sole responsibility for any decision made or 
actions taken based on information 
obtained from using the programs. No 
information given concerning the utility of 
the programs is to be construed as an 
express or implied warranty. 

5. ** In no event shall T.I. be liable to anyone 
for special, incidental, or consequential 
damages in connection with or arising out 
of the purchase or use of the console. 
Hardware and/or programs and the sole 
and exclusive liability of T.I. shall not 
exceed the purchase price of the console, 
hardware and/or programs. T.I. shall not 
be liable for any claim of any kind whatever 
against the user of the programs by any 
other party. 

** Paragraphs 3 and 5 shall not affect the 
statutory rights of the consumer as defined 
in the consumer transactions (restrictions 
of statements) order 1976, as amended. 



Texas Instruments 



Model 

Modell 

Module . 

Modelio 

Malli 

Modelo 



Last Name 

Familienname 

Nom 

Cognome 

Achternaam 

Eftemamn 

Efternavn 

Sukunimi 

Ultimo nome 



Address 



Indrizzo 

Adres 

Gatuadress 

Osoite 

Endereco 

Direcci6n 



Serial N° 
Serien Nr. 
H° de s6rie 
Numerodi serie 
Serie nr. 
Sarja No 
No de serie 



Nod 
N°d 



1 OMR. 
Herr 

Monsieur 

Sig. re 

Dhr. 

Herr 

Hr. 

Hra. 

Senhor 

Sr. 



First Name 
Vorname 
Pr6nom 
Nome 

Voornaam _ 

F6rnamn 

Fornavn 

Etunimi 

Primeiro nome 

Nombre 



2 □ Miss, Mrs 
Frau, Frgulein 
Mme, Melle 
Sig. ra, Sig. na 
Mevr., Me). 
Fru.,frk. 
Nti. Rva 

Senhora, Menina 
Sra. Srta. 



3 o Company 
Firma 
Society 
Ditta 
Bolag. 
Yhtid 
Empresa 



Date, Datum, Dhta, Pavgmaara, 
Oato, Fecha 



Town 

on 

Viile 

Cittd 

Stad 

By 

Kaupunki 

CitadeA/ila 

Ciudad 



P.O. Code 
Postleitzahl 
Code Postal 
Codice Postale 
. Postcode 
Postnr. 
Postinumero 
Zona postal 
D. Postal 



Country 

Land 

Pays 

Paese 

Maa 

Pais 



^ TEXAS INSTRUMENTS 

HOME COMPUTER 

1103216-0000 



